program page45q4; uses wincrt;
var number, square : integer;
    root : real;
begin
  write('Enter a positive number: ');
  readln(number);
  square := number*number;
  root := sqrt(number);
  writeln('Its square is ',square);
  writeln('Its square root is ',root:0:3)
end.