Pascal.циклы С Параметром

[Smile1995]

помогите пожалуйста не могу понять где ошибка(
при n=2
должен выдавать значения t=0.16 u =0.41
а выдает второе значение под первым номером и под вторым это же значение увеличенное вдвое

Pascal

t(Общий вид слагаемого суммы)
s(Сумма)
n(Кол-во слагаемых)

Program Variant_7;
var t,s,f:real;
n,i:integer;
begin
Writeln('Vvod usxodnux dannux:');
Write('n=');
Readln;
Writeln;
Writeln('________');
Writeln('i t');
Writeln('________');
t:=0;
s:=0;
f:=1.0/4.0;
For i:= 1 to n do
begin
t:=1.0/(n*(n+1.0)*(n+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;
Writeln('________');
Writeln;
Writeln('f=',f:0:6);
end.

 

[Senset]

Полностью задание напиши, мне вот че-то непонятно что за f=....
Ап! увидел задание, пардон)

For i:= 1 to n do
begin
t:=1.0/(n*(n+1.0)*(n+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;

Заменить на:

For i:= 1 to n do
begin
t:=1.0/(i*(i+1.0)*(i+2.0));
s:=s+t;
writeln(i:3, ' ', t:0:6);
end;

и в конце добавить вывод суммы:

writeln('S=',s);

 

[Smile1995]

блин, большое спасибо, протупила