с информатикой (1е задание) нужно составить программу в паскале

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел a,b:');
  Writeln(a,' + ',b,' = ',a+b);
  Writeln(a,' - ',b,' = ',a-b);
  Writeln(a,' * ',b,' = ',a*b);
end.

Пример
Введите через пробел a,b: -3.6 2.15
-3.6 + 2.15 = -1.45
-3.6 - 2.15 = -5.75
-3.6 * 2.15 = -7.74

begin
  var n:=ReadInteger('n=');
  var a:=ReadReal('a=');
  var p:=1/a;
  var s:=p;
  for var i:=1 to n do begin p/=(a+i); s+=p end;
  Writeln(s)
end.

Пример
n= 6
a= 2.4
0.57315329840095

begin
  var n:=ReadInteger('n=');
  var s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum;
  Writeln('Сумма модулей равна ',s)
end.

Пример
n= 6
Введите 6 чисел: -4.35 2.63 11 -8.1 0 -6.4
Сумма модулей равна 32.48

1.Площадь квадрата(цел числа):

a = int(input("Введите сторону квадрата(целые числа): "))

print("S =", a*a)

2.Периметр квадрата(вещ. числа):

a = float(input("Введите сторону квадрата(вещественные числа): "))

print("P =", a*4)

3.Площадь треугольника:

a = int(input("Введите длину основания треугольника(целые числа):"))

h = int(input("Введите высоту треугольника(целые числа):"))

print("S =",a*h/2)

4.Периметр треугольника:

print("P =", int(input("Введите длину первой стороны треугольника(целые числа):")) + int(input("Введите длину второй стороны треугольника(целые числа):")) + int(input("Введите длину третьей стороны треугольника(целые числа):")))

5.Площадь круга:

Pi = 3

R = int(input("Введите радиус круга: "))

print("площадь круга примерно равна(Pi=3)", Pi*R*R)

6.Длина окружности:

Pi = 3,1415926535

R = float(input("Введите радиус круга: "))

print("длина окружности круга примерно равна", 2*Pi*R)

7. Имя:

name = input("Как тебя зовут? ")

print("Привет,", name,"!")

Объяснение: