Помогите пожалуйста!!Буду очень сильно благодарен!!
На языке PascalABC.Net или TurboPascal:
1) Разработать программу циклической структурой,используя цикл с параметром.
Дано действительное число х, натуральное число n. Написать программу, которая вычисляет сумму последовательности, заданной формулы x^1/1!+x^2/2!+x^3/3!+...+x^n/n!
2) Разработать программу циклической структурой в соответствии с предложенным вариантом, используя цикл с предусловием. Дано действительное число х, натуральное число n. Написать программу, которая вычисляет сумму последовательности, заданной формулы x^1/1!+x^2/2!+x^3/3!+...+x^n/n!
3)Определить значение z = max (a, 2b) • max (2a-b, b),где max (x, y) есть максимальное из чисел х, у. При peшении задачи определить и использовать функцию max.Выполнить отладку программы с заходом в каждую из подпрограмм.

Спасибо большое)

Не за что. Отформатировал.

Спасибо еще раз

//Pascal ABC.NET 3.1 сборка 1219//1Var n,i:integer; x,y:real; function fact(x:integer):int64; begin  if x>1 then fact:=fact(x-1)*x else fact:=1; end; begin read(x,n); i:=1; n:=n+1; repeat   y:=y+power(x,i)/fact(i);   inc(i); until n=i;writeln(y);end.//2Var n,i:integer; x,y:real; function fact(x:integer):int64; begin  if x>1 then fact:=fact(x-1)*x else fact:=1; end; begin read(x,n); i:=1; n:=n+1; while i<>n do  begin   y:=y+power(x,i)/fact(i);   inc(i);  end;writeln(y);end.//3Var a,b,z:integer; function max(a,b:integer):integer; begin  if a>b then max:=a else max:=b; end; begin read(a,b); z:=max(a,2*b)*max(2*a-b,b); writeln(z);end.