Program lab4;
Var j,K,d,N:integer;
res:real;
function proizv(N:integer):real;
var
i,k:integer;
P:real;
begin
P:=0;
k:=1;
for i:=1 to N do
begin
k:=k*i;
P:=P*(N+1/sqrt(k));
result:=P;
end;
begin
writeln('N='); read (N);
if N<1 then
begin
writeln('N<1!');
exit;
end;
writeln('step=');
read(K);
if K<1 then
begin
writeln('K<1!');
exit;
end;
writeln('kol-vo=');
read(d);
if d<1 then
begin
writeln('d<1!');
exit;
end;
for j:=1 to d
begin
res:=proizv(N);
writeln(j,' ',N,' ',res);
N:=N+K;
end;
end.