program lab_rab_2;
uses crt;
var a,b,x,y:real;
begin
a:=7.5;b:=1.4;
write ('vvedite x=');
readln (x);
if x<=-3 then y:=a-b*b*x
else  y:=1/(x*x+exp(b*x));
writeln ('pri x=',4:2,'znachenie y=',y:5:2);
readln;
end.