Учеба и наука

Проверьте задачу - вопрос №206440

Дано натуральное число n. вычислить (1+1/1в квадрате)*(1+1/2в квадрате)...(1+1/n в квадрате).
Проверьте, пожалуйста, правильно я решил.

program z1;

var n,z: integer;

umn:real;

begin

readln (n);

umn:=1;

for z:=2 to x do

umn:= (1+1/sqr(1))*(1+1/sqr(umn)); writeln (umn);

end.

Спасибо. Уже не надо.

Сергей Бродов февраль 18, 2012 г.