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

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 igt;50;
end.

var
i,p:integer;
begin
i:=1;
while ilt;=50 do
begin
p:=i*i;
writeln(i,' в квадрате: ',p);
i:=i+1;
end;
end.