{* Задача 513 *}

Unit ZADACH513;
Interface
Implementation
Begin
 writeln('Развивая предельно возможную скорость своего движения, жираф пробегает за 23 с 335,8 м. Заяц пробегает за 55 с 918,5 м. Кому из этих животных вы присвоите звание чемпиона, сопоставляя их скорости?');
End.

Program zadach513;

Uses zadach513.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  s1 : real;
  s2 : real;
  t1 : real;
  t2 : real;
  v1 : real;
  v2 : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln ('Введите показатели жирафа s1, t1');
  readln (s1, t1);
  writeln ('Введите показатели зайца s2, t2');
  readln (s2, t2);
  v1 := s1 / t1;
  v2 := s2 / t2;
  If v1 = v2 Then
  Begin
    textcolor (10); {* Выбрать Светло-зеленый цвет текста *}
    writeln ('Победила дружба');
  End;
  Else If v1 > v2 Then
  Begin
    textcolor (14); {* Выбрать Желтый цвет текста *}
    writeln ('Жираф чемпион');
  End;
  Else Begin
    textcolor (9); {* Выбрать Голубой цвет текста *}
  writeln ('Заяц чемпион');
End;
Repeat
  Until keypressed; {* После нажатия любой клавиши цикл остановится *}
  End..