Циклическое высчитывание сумм и произведений, с последующим добавлением функции.

program lab3s;
uses CRT;
var i,m,n:integer;
var ch,k,l:real;
s:char;
f:boolean;
begin
  clrscr;
  writeln;
  repeat;
  f:=false;
  n:=5;
  k:=0;
  while ch>0.0001 do
    l:=1;
    for i:=1 to n do l:=l*(i+1);
    ch:=sqrt(n+2)/(1+sqrt(n+l));
    k:=ch+k;
    n:=n+1;
  write('Result: ', k:1:4);
  writeln('Vichislit escho?');
s:=readkey;
writeln;
if s in ['y'] then f:=true;
until f=false;
end.

program lab3p;
uses CRT;
var i,m,n:integer;
var ch,k,l:real;
s:char;
f:boolean;
begin
  clrscr;
  writeln;
  repeat;
  f:=false;
  write('Do skolbki schitatb budem? ');
  read(m);
  n:=0;
  k:=0;
  while n<m do
    while ch>0.0001 do
      l:=1;
      for i:=1 to n do l:=l*(i+1);
        ch:=sqrt(n+2)/(1+sqrt(n+l));
      k:=ch+k;
      n:=n+1;
  writeln('Result: ', k:1:4);
  writeln('Vichislit escho?');
s:=readkey;
writeln;
if s in ['y'] then f:=true;
until f=false;
end.

program lab3s;
uses CRT;
function ch(value1,value2:integer):real;
begin
  ch:=sqrt(value1+2)/(1+sqrt(value1+value2));
end;
var i,m,n:integer;
var k,l:real;
s:char;
f:boolean;
begin
  clrscr;
  writeln;
  repeat;
  f:=false;
  n:=5;
  k:=0;
  while ch>0.0001 do
    l:=1;
    for i:=1 to n do l:=l*(i+1);
{    ch:=sqrt(n+2)/(1+sqrt(n+l));}
    k:=ch(n,l)+k;
    n:=n+1;
  write('Result: ', k:1:4);
  writeln('Vichislit escho?');
s:=readkey;
writeln;
if s in ['y'] then f:=true;
until f=false;
end.