{* Задача 580 *}

Unit ZADACH580;
Interface
Implementation
Begin
 writeln('Туристы вышли из леса на шоссе неподалеку от километрового столба с отметкой А км и решили пойти на ближайшую автобусную остановку. Посмотрев на план местности, руководитель группы сказал, что автобусные остановки расположены на километре В и на километре С. Куда следует пойти туристам?');
End.

Program zadach580;

Uses zadach580.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  a  : integer;
  b  : integer;
  c  : integer;
  s1 : integer;
  s2 : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  Write('Введите a=');
  read(a);
  Write('Введите b, c=');
  read(b, c);
  s1 := abs(a - b);
  s2 := abs(a - c);
  If s1 > s2 Then
    writeln('Следует идти к пункту C.')
  Else writeln('Следует идти к пункту B.');
    readkey; {* Нажмите любую клавишу *}
End.