{
Online Pascal Compiler.
Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.
}
program notSqrt;
uses crt;
var
r:real;
c:real;
begin
writeln('Zahl eingeben: ');
readln(r);
c := sqrt(r);
writeln('Das Ergebnis ist: ', c);
end.