{* Задача 108 *}

Unit ZADACH108;
Interface
Implementation
Begin
 writeln('Заданы 2 точки. Определить какой из отрезков AO или BO образует больший угол с осью OX. ');
End.

Program zadach108;

Uses zadach108.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* В работе нам потребуются переменные: *}
  x1 : longint;
  x2 : longint;
  y1 : longint;
  y2 : longint;
  a  : real;
  b  : real;
  a1 : real;
  b1 : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('коорд. точки А');
  write('x1=');
  readln(x1);
  write('y1=');
  readln(y1);
  writeln('коорд. точки В');
  write('x2=');
  readln(x2);
  write('y2=');
  readln(y2);
  a := sqrt(x1 * x1 + y1 * y1);
  b := sqrt(x2 * x2 + y2 * y2);
  a1 := y1 / a;
  b1 := y2 / b;
  If a1 > b1 Then
    write('отрезок OA обр. бол. угол ')
  Else write('отрезок OB обр. бол. угол');
    readln; {* Ждем нажатия Enter *}
End.