var
i:integer;
m:array[1..20] of integer;
begin
for i:=1 to 20 do
m[i]:=i*i;
writeln(m[i]);
end
end.
var
i:integer;
m:array[1..20] of integer;
begin
for i:=1 to 20 do
begin
m[i]:=i*i;
writeln(m[i]);
end
end.