дано число, если оно больше либо равно нулю, то извлечь из

P.S Программанаписна для Pascal.

program chislo;

var

n, s, k :real;

begin

 writeln('Введите число: ');

 read(n);

 if ngt;=0 then

   begin

     s:=sqrt(n);

     writeln('Квадратный корень числа: ',s);

   end

 else

   begin

     k:=sqr(n);

     writeln('квадрат числа: ',k);

   end;

end.    

Var a:real;

begin

read (a);

If agt;=0 then a:=sqrt(a) else a:=sqr(a);

write (a:3:2);

end.