PROGRAM BetterRooter;

VAR 
  R,S : Real;

BEGIN
  Writeln('>>Better square root calculator<<');
  Writeln;
  R:=1;
  WHILE R<>0 DO
    BEGIN
      Writeln('>>Enter the number (0 to exit): ');
      Readln(R);
      IF R<>0 THEN       
      BEGIN
        S := Sqrt(R);
        Writeln('  The square root of ',R:7:7,' is ',S:7:7,'.');
        Writeln
      END
    END;
  Writeln('>>Square root calculator signing off...')
END.
                                                             