{* Угол пересечения двух прямых *}

Unit Z_LINE12;
Interface
Implementation
Begin
 writeln('Угол пересечения двух прямых заданных угловыми коэффициентами');
End.

Program z_line;

Uses z_line12.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  LineK1  : real;
  LineK2  : real;
  Radians : real;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Введите угловой коэффициент первой прямой');
  readln(LineK1);
  writeln('Введите угловой коэффициент второй прямой');
  readln(LineK2);
  writeln; {* Пропускаем одну строку *}
  If LineK1 * LineK2 = - 1 Then
    writeln('Угол пересечения двух данных прямых равен 90 градусов')
  Else Begin
    Radians := arctan(abs((LineK2 - LineK1) / (1 + LineK1 * LineK2)));
  writeln('Угол пересечения двух данных прямых равен ', trunc(Radians * 180 / pi)     , ' градусов ',  trunc(frac(Radians * 180 / Pi) * 60), ' минут');
End;
  readln; {* Ждем нажатия Enter *}
  End.....