Переведите в Паскаль пожалуйста 3 номер

p3;

x,a,b,c: real;

F(x):real;

y: real;

      x>0

       y :=  a*sqr(x)-b*x+9.0

      y := c/(sqr(x)*x+8.0)'

      F:=y;

       writeln ('A=?');

       readln(a);

       writeln ('B=?');

       readln(b);

       writeln ('C=?');

       readln(c);

       writeln ('x=?');

       readln(x);

       writeln('F(',x,')=',F(x));