program Project11; {$APPTYPE CONSOLE} var A,i:integer; begin for i:=1 to 19 do begin A:=i*i; write(A,' ');end; readln; end.