zadach545.PAS

{* Задача 545 *}

Unit ZADACH545;
Interface
Implementation
Begin
 writeln('От станции до озера S км. Туристы, направляясь от станции к озеру, полтора часа шли пешком со скоростью А км, а затем сели на попутную машину, которая ехала со скоростью В км/ч. За какое время туристы добрались до озера?');
End.

Program zadach545;

Uses zadach545.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  s : real;
  a : real;
  b : real;
  t : real;
Begin
  clrscr; {* Очистка экрана *}
  write('s=');
  read(s);
  write('a, b=');
  read(a, b);
  t := 1.5 + (s - 1.5 * a) / b;
  write(t : 2:3, '  з б.');
  readkey; {* Ждем нажатия любой клавиши *}
End.