Контрольная работа: цикл с параметром

Типовая задача вынесенная на контрольную работу*:

Дано натуральное число n. Вычислить:

P = (1 - 1/22)*(1 - 1/32)*...*(1 - 1/n2), где n > 2.

Решение

program sum2;

var

      n,i:word;

      p:real;

begin

write('Введите n, n > 2. n = '); readln(n);

p := 1;

for i := 2 to n do

      p := p * (1 - 1/(i * i));

writeln('P = ', p);

readln

end.

*Обязательные этапы решения задачи (описание входных/выходных данных, блок-схема, и проч.) не приводятся здесь умышленно.