30 составить программу для нахождения значения y по формуле: y= 20-14x2+12x 30

Var x,y: integer;
begin
readln(x);
y:=20-14*x*x+12*x;
writeln('y = ',y);
end.

Пример:
5
y = -270

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var (x,y):=(ReadReal,0.0);
y:=20-14*x**2+12*x;
write('y=',y);
end.