Составте программу обчисления функции у=((9х^2+5)/3x+12), если х<-4 (4х^2-7) в других случаях
program pr;
var x,y:real;
begin
writeln('vvedite x');
readln(x);
if x<-4 then
y:=(9*x*x+5)/(3*x+12)
else
y:=4*x*x-7;
writeln('y=',y:8:2);
readln
end.
Буду благодарна, если отметите, как лучший