program Programzk3; {$APPTYPE CONSOLE} var i,c:integer; const a=1; b=19; begin for i:=a to b do begin c:=sqr(i); writeln(c,' '); end; writeln; readln; end.