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

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

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

y := -4 sqr(a) - 5 a + 15;

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