Проверьте решение задачи на цикл

[Zakian]

p=1/(2^2)*2/(3^2)*3/(4^2)...n/(n+1)^2

Мой пример решения:

 program asd;
var n,i:integer;
     p:real;
begin
readln(n);
p:=1;
for i:=1 to n do
begin 
p:=p*(i/sqr(i+1));
end;
writeln('otvet=',p:2:2);
readln;
end.

[Tayfun]

Если (1/2^2) это тоже самое что и 1/(2^2) то вроде все в порядке :-)

[Zakian]

Сообщение от Tayfun

Если (1/2^2) это тоже самое что и 1/(2^2) то вроде все в порядке :-)

Да, тоже самое. Спасибо.