Составьте программу вычисления произведения квадратов чисел от 4 до 9. в паскале, цикл repeat.

Var
   A:integer;
   P:real;
Begin
P:=1;
A:=4;
Repeat
P:=P*A*A;
A:=A+1
Until A > 9;
WriteLn('P = ',P);
ReadLn
End.