Решите через 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.