Объяснение:
var x,y : Real;
begin
write('x = '); readln(x);
if x < 4 then y := sqrt(x - 5 * Power(x,4)) else y := x + 3 * Power(x,2);
writeln('y = ', x:4:0);
end.
