用Turbo pascal 语言打印出1~20的平方数表

这个。。。这个不会吗？
：var a:integer;
begin
for a:=1 to 20 do
write(a*a,' ');
end

本程序自动换行，且显示例如1^2=1 2^2=2
var i:integer;
begin
for i:=1 to 20 do
writeln(i,'^2=',i*i);
end.

var
i:longint;
begin
for i:=1 to 20 do
writeln(i,' ',sqr(i));
end.

var i:integer;

begin
for i:=1 to 20 do write(i,'^2=',i*i,' ');
end.

var i:integer;
begin
for i:=1 to 20 do
writeln(i,'^2=',i*i);
end.

var i:integer;
begin
for i:=1 to 20 do write(i,'2='i*1,'');
end.