Решите задачку через For, While, Until. Произведение возведения в квадрат от 0 до 50

Var

i, p:integer;

begin

for i:=1 to 50 do

begin

p:=i*i;

writeln (i,' в квадрате: ', p) ;

end;

end.

var

i, p:integer;

begin

i:=1;

repeat

p:=i*i;

writeln (i,' в квадрате: ', p) ;

i:=i+1;

until i>50;

end.

var

i, p:integer;

begin

i:=1;

while i<=50 do

begin

p:=i*i;

writeln (i,' в квадрате: ', p) ;

i:=i+1;

end;

end.