Решите, пожалуйста, на pascalе.

var
  n, i: integer;
  sum: real;

begin
  sum := 0;
  read(n);
  for i := 1 to n do
  begin
    sum := sum + (1 / (i * i));
  end;
  write(sum);
end.