ребята помогите кто хорошо ладит с pascal

Пишу тут, так что не пеняйте за опечатки:
1 прога:

uses...
...math;

var
n:integer;
sum:real;

function factorial (x:real):real;
var j:integer;
begin
result:=1;
for j:=1 to cile(x) do
result:=result*j;
end;

begin
sum:=0;
for n:=1 to 30 do
sum:=sum+(Power(1.2,(2*n+1))/(factorial(2*n)))*ln(n+1);
writeln (floattostr(sum));
end.

остальные - лень....