Добрый день, прошу помощи на языке Pascal.

Даны два действительных числа a и b. Получить их сумму, разность и произведение.
_____________________________________________

Даны действительно число a, натуральное число n. Вычислить:
1/a + 1/a(a+1)+...+1/a(a+1)...(a+n)
_____________________________________________

Даны натуральное число n, действительные числа a1,...,an. Вычислить:
| a1 |+ ... +| an |

Вот, всем спасибо заранее)

// 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.74begin  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= 6a= 2.40.57315329840095begin  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