Составьте программу определяющую пройдет ли график функции y=-4x^2-5x+15 через заданную точку координатами (a b ) вводятся пользователем паскаль))

Предыдущий
вопрос Следующий
вопрос

program CheckGraph;
var
a, b: Integer;
x, y: Real;
begin
writeln('Введите координаты точки (a, b): ');
readln(a, b);

x := a;
y := -4 x x - 5 * x + 15;

if y = b then
writeln('График функции проходит через данную точку.')
else
writeln('График функции не проходит через данную точку.');
end.