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

var x,y: integer;beginreadln(x);y:=20-14*x*x+12*x;writeln('y = ',y);end.Пример:5y = -270

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