подредактируйте программу

[Neytron]

var i,n,k,l: integer;
pr: real;
begin
i:= 1;
l:= 2;
k:= 0;
pr:= 1;
ReadLn(n);
while k<n do
begin
inc(k);
pr:= i/l*pr;
i:= i+6;
l:= l+6;
end;
WriteLn(pr);
ReadLn;
end.
подредактируйте плиз, а то голову сломал, нада что бы она при вводе 0 считала 0

[Serge_Bliznykov]

1) неплохо бы условие задачи видеть, почему это она вдруг должна при 0 выдавать результат ноль?!
2) решить это проще всего через проверку после readln(n); и перед while k<n напишите одну строчку кода:

if n=0 then pr := 0;

[Neytron]

http://s56.radikal.ru/i151/0906/71/4d7399762890.jpg тут условие, извиняюсб что так неаккуратно)

[__STDC__]

я вас сейчас огорчу... 0 НЕ является НАТУРАЛЬНЫМ числом (точнее будет сказать его чаще всего (особенно у нас) не рассматривают во мн-ве натуральных чисел)

[Serge_Bliznykov]

__STDC__, +1
абсолютно согласен с Вами, коллега!

[Neytron]

так чего делать та?) ка подправтиь программу7

[Serge_Bliznykov]

а никак! по условиям задачи N не может быть нулевым (так же как и дробным, отрицательным, мнимым и т.д. и т.п. - почитайте на википедии определение натурального числа!)
Ну, если сильно хотите - можете вставить проверку после readln(n) и выдать сообщение об ошибке ввода:

if n=0 then begin 
  WriteLn('Ошибка ввода - введено не натуральное число!'); 
  Halt(100);
end;

[Neytron]

Halt(100); - а это что такое?

[__STDC__]

аварийное завершение программы с exit-кодом 100

[Neytron]

__STDC__, спасибо