Program Cikl2;
Var i, i2: integer;
Begin
i := 1;
repeat
  i2 := i*i;
  writeln(i:4,i2:4);
  i := i+1;
until i>9;
End.