program sum; {$APPTYPE CONSOLE} uses SysUtils; var x: real; begin write('Please Enter x: '); readln(x); if x < 0 then begin writeln('x < 0, then x is out of range'); end else begin writeln('sqrt(', x:8:3, ') =', sqrt(x):8:3); end; readln end.