Решение задачи
{ Определить лежит ли точка а на прямой y=kx+l }
uses crt; 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.