Y=
{2X(в кубе) +1 / X-5, если X<4
{3X(в квадрате) -2, если X>=4


это одно выражение. ..
нужно составить блок схему и программу вычисления значения функции. .. ну зотябы помогите составить программу...

Program asd;USES crt;var x,f:real;BEGINClrscr;Writeln('Vvedite x: ');Readln(x);If x<4 then f:=2*EXP(3*ln(x)+3) else if x>=4 then f:=3*sqr(x)-2; Writeln(' Otvet: ',f:2:2); Readln;END.

И что не так?