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

Question

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

Answer 1

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