Код программы:
var y, x:real;
begin
writeln('Введите x');
readln(x);
if x < 0 then
x := x * x
else
x := sqrt(x);
writeln('x = ', x);
end.
