program Project3; {$APPTYPE CONSOLE} var i:integer; begin writeln(' Kvadraty'); for i:=1 to 19 do begin if i>=10 then begin writeln(i,' ',i*i);end else writeln(i,' ',i*i); end; readln; end.