Uses crt; var f,a:integer; begin write('Введите а: '); readln(a); if a<-3 then f:=3*(a*a*a)-1; if a>5 then f:=3*sqr(a)-1; if ((-3<=a) and (a<=5)) then f:=sqr(a)-(2*a)+3; writeln('f= ',f); end.<span> </span>
var a,F:integer; begin Write('Введите a: '); Read(a); if a<-3 then F:=3*a*sqr(a)-1 else if a>5 then F:=3*sqr(a)-2 else F:=sqr(a)-2*a+3; Writeln('F=',F) end.