Вычислить значение переменной у, при n: у=1/1^2+1/2^2+1/3^2+...+1/n^2. Написать решение на языке паскаль.

Предыдущий
вопрос Следующий
вопрос

program SumSquares;
var
n, i: integer;
y: real;
begin
write('Enter the value of n: ');
readln(n);
y := 0;
for i := 1 to n do
begin
y := y + 1 / sqr(i);
end;
writeln('The value of y is: ', y:0:2);
end.

Введите значение переменной n, чтобы программа вычислила значение переменной у.