В данной программе проверяется принадлежность точки прямой, заданной уравнением \(y=kx+l\). Программа примитивная и работает только для точек с целыми координатами. Для действительных координат все сложнее и нельзя в этой программе просто поменять тип вводимых данных на real.
uses crt;
program z14;
var x,y,l,k : integer;
begin
clrscr;
write('x=');readln(x);
write('y=');readln(y);
write('k=');readln(k);
write('l=');readln(l);
if y=k*x+l then write('Да')
else write('Нет');
readln;
end.