program Zada4a_3;

{$APPTYPE CONSOLE}
var
i,a:integer;
begin
For i:=1 to 20 do
begin
a:=i*i;
writeln(a);
end;
readln;
end.