напишите программу паскаль: программа вычесления произведения квадратов чисел от 2 до 5

Вопрос школьника по предмету Информатика

напишите программу паскаль: программа вычесления произведения квадратов чисел от 2 до 5

Ответ учителя по предмету Информатика

Program n1;

var p,i: integer;

begin

p:=1;

for i:=2 to 5 do p:=p*i*i;

writeln(p);

end.