Program sdfgashd; var
y,a,b,c,x:integer;
begin
write('введи значение a ');
read(a);
write('введи значение b ');
read(b);
write('введи значение c ');
read(c);
write('введи значение x ');
read(x);
y:=a*x*x+b*x-c
end.

как вывести y