{* Задача 584 *}

Unit ZADACH584;
Interface
Implementation
Begin
 writeln('Турист за день прошел А км. До обеда он шел t часов и прошел 20 км. Еще t2 часа он шел после обеда. Когда скорость туриста была выше: до обеда или после обеда?');
End.

Program zadach584;

Uses zadach584.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a  : real;
  t1 : real;
  t2 : real;
  vd : real;
  vp : real;
Begin
  clrscr; {* Очищаем экран *}
  Write('Введите пройденный путь в км.');
  read(a);
  Write('Время в пути до обеда.');
  read(t1);
  Write('Время в пути после обеда.');
  read(t2);
  vd := 20 / t1;
  vp := (a - 20) / t2;
  If vd > vp Then
    writeln('Скорость до обеда больше.')
  Else writeln('Скорость после обеда больше.');
    readkey; {* Нажмите любую клавишу *}
End.