дано число, если оно больше или равно нулю, то извлечь из него квадратный корень, иначе возвести в квадрат.

Var a:real;

begin

read (a);

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

write (a:3:2);

end.

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

program chislo;

var

n, s, k :real;

begin

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

 read(n);

 if n>=0 then

   begin

     s:=sqrt(n);

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

   end

 else

   begin

     k:=sqr(n);

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

   end;

end.