Определить,принадлежит ли точка,заданная координатами графиками функции: y=ax^2+bx+c решить паскаль

Var  a, b, c, x, y: Integer;
Begin
  WriteLn('Введите коэффициенты a, b, c: ');
  Read(a, b, c);
  WriteLn('Введите координаты точки x, y: ');
  Read(x, y);
  If y = a * x * x + b * x + c Then WriteLn('Принадлежит')
                               Else WriteLn('Не принадлежит')
End.