Программа

VAR a,b,xt,yt:real; {Коэффициенты прямой и координаты точки}
BEGIN
  Write('Введите a '); {Вывод приглашения}
  ReadLn(a); {Ввод коэффициента прямой}
  Write('Введите b '); {Вывод приглашения}
  ReadLn(b); {Ввод коэффициента прямой}
  Write('Введите X координату точки '); {Вывод приглашения}
  ReadLn(xt); {Ввод координаты точки}
  Write('Введите Y координату точки '); {Вывод приглашения}
  ReadLn(yt); {Ввод координаты точки}
  {Определение и вывод результата}
  if yt=a*xt+b
  then WriteLn('Точка на прямой')
  else WriteLn('Точка вне прямой');
END.