Найти значение функции у=ах2+b, где а, х и b – целые числа.

Program zadanie;
Var y,a,b,x:integer;
Begin
 Writeln('Введите три любых целых чисел');
 Readln(a,b,x);
 y:=a*+b;
 Writeln('y=',y);
End.