Задание 2. 21. Вычислить сумму S и произведение P

21. Вычислить сумму S и произведение P.

,

program zadanie_2;

uses crt;

Var

i: integer;

s: extended;

p: real;

n: extended;

function factorial(n: extended): extended;

Var

f:extended;

t:byte;

Begin

f:=1;

t:=1;

while t<=n do

Begin

f:=f*t;

t:=t+1

End;

factorial:=f

End;

Begin

clrscr;

s:=0;

for i:=1 to 10 do

Begin

n:=i*i;

n:=factorial(n);

writeln('s1=',s);

s:=s+1/n

end;

i:=1;

p:=1;

while i<=5 do begin

p:=p*i/(i+1);

i:=i+1

end;

write('s=',s,' ','p=',p);

Readln

End.