{* Задача 99 *}

Unit ZADACH99;
Interface
Implementation
Begin
 writeln('Определить лежит ли точка а на прямой y=kx+l ');
End.

Program zadach99;

Uses zadach99.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  x : integer;
  y : integer;
  l : integer;
  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.