Нужно написать программу в паскале.

program fantscrin;

 var x, f:real;

begin

 write('Введите x = '); readln(x);

 if x = 2 then f:=3*x*x - 1/2

          else if x = 3 then f:=x*x*x-3*x/2

                        else f:=2*x*x*x*x-3*x/2;

 writeln('f = ',f);

end.