program numbers; var i: integer; begin for i := 1 to 10 do begin WriteLn(i, ' ', i*i); end; end.