PROGRAM Rooter;

VAR 
  R,S : Real;

BEGIN
  Writeln('>>Square root calculator<<');
  Writeln;
  Write('>>Enter the number: ');
  Readln(R);
  S := Sqrt(R);
  Writeln('  The square root of ',R:7:7,' is ',S:7:7,'.')
END.
                      