Пожалуйста посчитайте задачку через 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.