Paskal как найти сумму ряда с точностью  = 0,02

uses crt;
var i,n,n2:integer;
a,n1:real;
begin
clrscr;
writeln('vvedite n');
readln(n);
n1:=0; n2:=1;
for i:=1 to n do
n2:=i*n2;
{================ }
n1:=Exp(sqrt(n)*Ln(n));
a:=n1/n2;
writeln('a=', n1:4:1 , '/' ,n2,'=',a:4:1 );
readln;
end.

P.S. pasCal

Если есть еще задачки, то можешь кинуть на почту)