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

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.

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.