Оператор for,маленькая проблемка

[Dimmy]

Hi.
Нужно найти значение выражения (1+1/sqr 1)(2+1/sqr 2)...(n+1/sqr n)
Получилось вот так:

uses crt;
n,i:integer;
c,a,p:real;
begin
clrscr;
write('Vvedite chislo elementov n');
readln(n);
a:=1+1/sqr(1);
for i:=2 to n do
begin
p:=i+1/sqr(i);
c:=p*a;
end;
writeln('Otvet ',c:5:4);
readkey;
end.

Но не получается сделать чтоб было произведение всех членов,а не 1ых 2ух.
Что не так?

[_Dmitry]

uses crt;
var
  n,i: integer;
  c: real;
begin
  clrscr;
  write('Vvedite chislo elementov n'); readln(n);
  c:=1+1/sqr(1);
  for i:=2 to n do
    c:=c*(i+1/sqr(i));
  writeln('Otvet ',c:5:4);
  readkey;
end.

[Dimmy]

Спасибо!!!