Программа на фотке, код старался сделать простым, сделал ещё защиту от дурака это значит программа не заработает если пользователь не выполнит условие А<Б
Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
Три варианта, выбирайте, что вам больше по нраву