Задание 2. Создайте алгоритм и программу для вычисления значения функции F по формулам: 3a^3-1 при a5 A^2-2a+3 при -3

Uses crt;
var f,a:integer;
begin
write(Введите а: );
readln(a);
if af:=3*(a*a*a)-1;
if a>5 then
f:=3*sqr(a)-1;
if ((-3f:=sqr(a)-(2*a)+3;
writeln(f= ,f);
end.