Помогите с программами в паскале

На, держи, удвчно сдать экзамен ;)

---------------------------------

Program Prog1;
uses Crt;

Var a,b,N,i:integer;x,S:real;

Function Pow(Var chislo:real; stepen:integer):real;
Var per:real;
Begin
Per:= Abs(chislo);
If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
Else Pow:= Exp((stepen)*Ln(per));
end;

function Factorial(n: integer): LongInt;
var
fact: longint;
begin
fact := 1;
if n=0 then exit;
for n := 1 to n do
fact := fact*n;
Factorial := fact;
end;

begin
writeln('Vycheslenije posledovatelnosti <<1+Х/1!+Х^2/3!+X^3/5!+..>>');
writeln('Vvedite x');
readln(x);
writeln('Vvedite kolichestvo chlenov posledovatelnosti:');
readln(N);
writeln('Vyvodit zadanayu posledovatelnost, ili vyvesti tolko resultat(1-vyvodit, 2-tolko resultat):');
readln(a);

if (a=1) then Write('1');
S:=1;

i:=0;
for i:=1 to N do
begin
S:= S+Pow(x,i)/Factorial(2*(i+1)-3);
if (a=1) then Write('+x^',i,'/',2*(i+1)-3,'!');
end;
Writeln;
Writeln('Resultat=',S);
readln;
end.

-------------------------------------

Program Prog2;
uses Crt;
Var a,N,b,i:integer;S:real;

Function Pow(Var chislo:integer;stepen:integer):real;
Var per:real;
Begin
Per:= Abs(chislo);
If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
Else Pow:= Exp((stepen)*Ln(per));
end;

begin
writeln('Vycheslenije posledovatelnosti <<(1^2/1+5)*(2^2/2+5^2)*(3^2/3+5^3)....>>');
writeln('Vvedite kolichestvo chlenov posledovatelnosti:');
readln(N);
writeln('Vyvodit zadanayu posledovatelnost, ili vyvesti tolko resultat(1-vyvodit, 2-tolko resultat):');
readln(a);

S:=1;
b:=5;
for i:=1 to N do
begin
S:= S*(Pow(i,2)/i+Pow(b,2));
if (a=1) then Write('(',i,'^',2,'/',i,'+',b,'^',i,')');
end;
Writeln;
Writeln('Resultat=',S);
readln;
end.

----------------------------------------

Program Prog3;
uses Crt;
Var a,N,i:integer;S,x,temp:real;

Function Pow(Var chislo:real;stepen:integer):real;
Var per:real;
Begin
Per:= Abs(chislo);
If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
Else Pow:= Exp((stepen)*Ln(per));
end;

begin
writeln('Vycheslenije posledovatelnosti <<(1/2 - cos|X-1|)*(2/3-cos|X-2|)^2*....>>');
writeln('Vvedite x:');
readln(x);
writeln('Vvedite kolichestvo chlenov posledovatelnosti:');
readln(N);
writeln('Vyvodit zadanayu posledovatelnost, ili vyvesti tolko resultat(1-vyvodit, 2-tolko resultat):');
readln(a);

S:=1;
for i:=1 to N do
begin
temp:=i/(i+1)-cos(abs(x-i));
S:= S*Pow(temp,i);
if (a=1) then Write('(',i,'/',i+1,'-cos|x-',i,'|)^',i);
end;
Writeln;
Writeln('Resultat=',S);
readln;
end.

-----------------------------------------------------

Program Prog4;
uses Crt;
Var a,N,i,S:integer;

Function Pow(Var chislo:integer;stepen:integer):real;
Var per:real;
Begin
Per:= Abs(chislo);
If chislo < 0 Then Pow:= (-1)*Exp((stepen)*Ln(per))
Else Pow:= Exp((stepen)*Ln(per));
end;

begin
writeln('Vycheslenije posledovatelnosti <<1+34+2+35+3+36+...>>');
writeln('Vvedite kolichestvo chlenov posledovatelnosti:');
readln(N);
writeln('Vyvodit zadanayu posledovatelnost, ili vyvesti tolko resultat(1-vyvodit, 2-tolko resultat):');
readln(a);

S:=0;
for i:=1 to N do
begin
S:= S+2*i+33;
if (a=1) then Write(i,'+',33+i,'+');
end;
Writeln;
Writeln('Resultat=',S);
readln;
end.

for-циклы используй, во всех 4-х заданиях

циклы For или while...