Составить программу вычисления произведения квадратов натуральных чисел от 1 до 10. (1^2*2^2*3^2**10^2)

Pascal

Var
i: byte;
rez: unt64;

begin
for i:=1 to 10 do
 rez:=rez*i*i;

write(rez);
end.

Если не ошибся нигде)

Var i,a:longint;
Begin
a:=1;
for i:=1 to 10 do
a:=a*sqr(i);
writeln (a);
end.