// Programme test2.pas
// fpc test2.pas -otest2pas; ./test2pas
program test2 (input, output);
uses math;
var
  B, I : integer;
  C, R : real;
begin
  B := 1;
  while B > 0 do
  begin
    write ('Borne:? ');
    readln (B);
    I := 1;
    while I <= B do
    begin
      C := power ( real (I), 2);
      R := sqrt ( real (I) );
      writeln ('I= ',I,' I^2= ',C:0:0,' I^1/2= ',R:0:5);
      I := I + 1;
    end
  end;
  writeln ('Fin du programme test2.pas');
end.