составить программу для вычисления значения функции  y=2x-4/3x^2+11

Program test;uses crt;var x,y:real;begin     clrscr;     writeln('введите x');     readln(x);      y:=(2*x-4)/(3*x*x+11);      writeln('y=', y);      readln;  end.

Program Qwerty123777;uses crt;var   x,y:real;begin  writeln('*** Alphaeus is thinking... ***');  writeln('***          OK             ***');  writeln();  writeln('Программа находит значение функции  y=(2x-4)/(3xx+11)');  write('Введите значение х ');  readln (x);  y:=(2*x-4)/(3*x*x+11);   writeln('*** Вычисляю... ***');  writeln('y=', y:8:2); ;end.