Program Cikl1;
Var i, i2: integer;
Begin
i := 1;
while i<=9 do
  begin
  i2 := i*i;
  writeln(i:4,i2:4);
  i := i+1;
  end;
End.