Составить программу решения линейного уравнения если a=3 b=5 c=8 ax^2+bx+с а: = b: = с: =

Вроде как так ,должно быть

Program f1;
var a,b,c,y: integer;
begin
а:=3;
b:=5;
с:=8;
y:=a*sqr(x)+b*x+c;
write (y);
end.