Составить программу, которая считывает число. Если оно неотрицательное, извлекает из него корень, в противном случает выводит соответсвующее сообщение. ПАСКАЛЬ

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.