Вычислить ряд (1+1/(1*1))*(1+1/(2*2))…(1+1/(n*n)) — Pascal(Паскаль)

program test;

uses crt;

var
  i, n: integer;
  r: real;

begin
  clrscr;
  write('Vvedite n ');
  readln(n);
  r := 1;
  for i := 1 to n do
    r := r * (1 + 1 / sqr(i));
  writeln('Rezulitat raven ', r:6:2);
  readln;

end.