Код программы:

var y, x:real;

begin

 writeln('Введите x');

 readln(x);

 if x < 0 then

   x := x * x

 else

   x := sqrt(x);

 writeln('x = ', x);

end.