Program Cikl3;
Var i, i2: integer;
Begin
for i:=1 to 9 do
  begin
  i2 := i*i;
  writeln(i:4,i2:4);
  end;
End.