сумма и произведение в Паскале

program Laboratornaya_3;
{uses crt;}
 
function fact( var n:integer):real;
 
var i:integer;
f:real;
 
begin
f:=1;
for i:=1 to n+2 do
begin
f:=f*i;
end;
fact:=f;
end;
 
function fact2( var n:integer):real;
 
var i:integer;
f:real;
 
begin
f:=1;
for i:=1 to n-3 do
begin
f:=f*i;
end;
fact2:=f;
end;
 
procedure Summa;
 
var n:integer;
e,ch,sum:real;
 
begin
 
write('vvedite tochnost: ');
readln(e);
write('vvedite n: ');
readln(n);
sum:=0;
ch:=(sqrt(n))/(fact2(n));
while (ch>e) do
begin
ch:=(sqrt(n))/(fact2(n));
sum:=sum+ch;
n:=n+1;
end;
writeln('summa ravna ',sum:2:2);
end;
 
procedure Proizvedenie;
 
var n:integer;
m,ch,pr:real;
 
begin
 
 
write('vvedite chislo m: ');
readln(m);
n:=0;
pr:=1;
 
while (n<=m) do
begin
ch:=fact(n)/(n+1);
pr:=pr*ch;
n:=n+1;
end;
 
writeln('proizvidenie ravno ',pr:2:2);
 
end;
 
procedure Menu;
begin
 
{ clrscr;}
writeln(' ----------------------------- ');
writeln(' | MENU |');
writeln(' |-----------------------------|');
writeln(' | 1 - raschet summi |');
writeln(' | 2 - raschet proizvedeniy |');
writeln(' | 3-exit |');
writeln(' ----------------------------- ');
end;
 
var flag,i:integer;
 
begin
 
 
{ clrscr;}
 
flag:=1;
while (flag=1) do
begin
Menu;
writeln;
write('viberite punkt menu: ');
readln(i);
case i of
1:
begin
{clrscr;}
writeln('raschet summi:');
writeln;
Summa;
readln;
flag:=1;
end;
2:
begin
{ clrscr;}
writeln('raschet proizvedeniy:');
writeln;
Proizvedenie;
readln;
flag:=1;
end;
3:
begin
{ clrscr;}
writeln('vihod...');
flag:=0;
end;
 
else
begin
writeln;
writeln('oshibka! vvodite ot 1 do 3!');
readln;
end;
end;
end;
readln;
end.

uses crt;
var s,p,e,t,v:real;
    m,n,i:integer;
begin
clrscr;
write('Введите точность вычисления суммы, малое число в интервале (0;1) e=');
readln(e);
n:=5;
t:=1/2;
v:=sqrt(5)/2;
s:=v;
while v>e do
 begin
  n:=n+1;
  t:=t/(n-3);
  v:=sqrt(n)*t;
  s:=s+v;
 end;
writeln('S=',s:0:6);
write('Введите m=');
readln(m);
p:=2;
for n:=1 to m do
 begin
  t:=1;
  for i:=1 to n+2 do
  t:=t*i;
  p:=p*t/(n+1);
 end;
writeln('P=',p:0:6);
readln
end.