var number: real;
begin
readln(number);
if number > 0 then
writeln(sqrt(number))
else writeln('Число меньше 0!');
end.
Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=sqrtA
else write(a) ;
Write(A);
End.
var number: real;
begin
readln(number);
if number > 0 then
writeln(sqrt(number))
else writeln('Число меньше 0!');
end.
Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=sqrtA
else write(a) ;
Write(A);
End.