Ошибка в программе., Может кто знает? Опции

[A&B]

Программа для задания, прикрепленного в файле, не могу понять, в чем ошибка. Если кто знает, подскажите плиз.

!

Прикреплять doc-файлы запрещено. Или текст, или картинка. мисс_граффити

Сообщение отредактировано: мисс_граффити - 17.05.2007 20:14

[Артемий]

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));
proizv:=P;
end;
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 n do
begin
res:=proizv(N);
writeln(j,' ',N,' ',res);
N:=N+K;
end;
readln
end.

Вот так вроде компилится! А может объяснишь условие?