я так понимаю k и l пременные задаваемы вручную, если так то условие простое, решай сам)
Это полный текст проги, удачи!
---------------
var x0,y0:real;
begin
readln('Введите координату Х: ' ,x0); {X координата точки А}
readln('Введите координату Y:',y0); {Y координата точки А}
readln('Введите коэффициент R:,'k);
readln('Введит коэффициент L:',l);
if y0=k*x0+l then write('точка лежит на прямой')
else write('точка не лежит на прямой');
readln;
end.