помогите решить лазарус

Question

procedure TForm1.Button1Click(Sender: TObject); 
var P,sum:real; i,k,n:integer; fact:longint; 
begin 
n:=strtoint(edit1.Text); 
i:=strtoint(edit2.Text); 
k:=strtoint(edit3.Text); 
fact:=1; fact:=fact*k; fact:=fact*i; 
for i:=1 to n do begin 
 P:=0; 
for k:=i to n do begin 
 sum:=2*(1/fact*k+1/fact*i); 
 P:=P*sum; 
end; 
end; 
writeln(P:6:2); 
label4.caption:=floattostr(sum); 
end; 
В Чем ошибка??? =(((

потому что значения потом не выводятся и произведение не счиатется! а от нас требуют, чтоб вводили числа, потом нажимали на кнопку и ответ программа дала.

Дмитрий Кузьмин · Accepted Answer

ну тут, судя по формуле, требуется ввести только значение N, а все остальное уже считается. 
А цикл подсчета произведения, вроде должен быть таким: 
 
var 
 p, sum: real; 
 i, k, n: integer; 
 ofi, ofk: real; 
begin 
 // взять N 
 p := 1; 
 ofi := 1; 
 for i := 1 to n do 
 begin 
 ofk := ofi; 
 ofi := ofi / i; 
 sum := 0; 
 for k := i to n do 
 begin 
 ofk := ofk / k; 
 sum := sum + ofk; 
 end; 
 p := p * (2 * sum + ofi); 
 end; 
 // вывести P 
end; 
 
А у тебя произведение всегда будет равно нулю, поскольку у тебя начальное значение P -- нуль (в тексте программы P := 0)

Макс Хомяк · Answer

В чем ошибка - это ты скажи. Что именно получается не так, как ты хочешь? 
П. С. А зачем в консоль выводишь, если приложение не консольное?