СРОЧНО, дам 20 поинтов!!!

Код ниже

program calc;

var x,y: real;

begin

   readln(x);

   y := sqrt(2)*x - 1.5 + 14*x*x;

   writeln('y = ', y);

end.