Cоставить программу вычисления функции y=7x^2-3x+6 при любом значении x.паскаль авс

Var
x,y: real;
Begin
writeln ('Введите х');
readln (x);
y:= 7*(x*x)-(3*x)+6; 
writeln ('Результат: ', y);
end.