Program Funct;
Uses Crt;
var x,rez:real;
begin
clrscr;
write('Введите x:');
readln(x);
if (x<=-2) then rez:=-3*(x*x)-(x*x)-x
else rez:=2*(x*x)-3*x;
writeln('f(x)=',rez:5:5);
readkey;
end.
Program Funct;
Uses Crt;
var x,rez:real;
begin
clrscr;
write('Введите x:');
readln(x);
if (x<=-2) then rez:=-3*(x*x)-(x*x)-x
else rez:=2*(x*x)-3*x;
writeln('f(x)=',rez:5:5);
readkey;
end.