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

[dobbi]

условие найти сумму и произведение.
я сделал программу. но она не правильно расчитывает. посмотрите

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.

[Serebro]

Сообщение от dobbi

условие найти сумму и произведение.
я сделал программу. но она не правильно расчитывает. посмотрите

Совершенно не хочется разбираться в коде.
Нужно писать подробнее, что нужно. Сумма и произведение чего именно?

[dobbi]

посмотрите этот файл, тут условие