Y= {2x(в кубе) +1 / x-5, если x< 4 {3x(в квадрате) -2, если x> =4 это одно выражение. . нужно составить блок схему и программу вычисления значения функции. . ну зотябы составить

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

Uses crt;
var x,y:real;
begin
     readln(x);
     if x<4 then y:=2*x*x*x+1/x-5
        else y:=3*x*x-2;
     writeln(y);
end.