2. создайте алгоритм и программу для вычисления значения функции f по формулам: 3a^3-1 при a< -3 3a^2-2 при a> 5 a^2-2a+3 при -3< =a< =5 паскаль.

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.

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.