{* Задача 9 *}

Unit Z_TIME7;
Interface
Implementation
Begin
 writeln('Известно время, за которое две трубы наполняют бассейн, и время, за которое этот же бассейн наполняет первая труба. Определить время, за которое вторая труба наполнит бассейн');
End.

Program z_time7;

Uses z_time7.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  Time0 : word;
  Time1 : word;
Begin
  clrscr; {* Очищаем экран *}
  Repeat    writeln('Введите время в минутах, за которое обе трубы наполнят бассеин');
    readln(Time0);
  writeln('Введите время в минутах, за которое первая труба наполнит бассеин');
  readln(Time1);
  If (Time0 > = Time1) Then
    writeln('Не верно введено время, нужно что бы врямя обеих труб было меньше');
  Until (Time0 < Time1);
  writeln('Время, за которое бассеин наполнит вторая труба равно ',(Time0 * Time1) / (Time1 - Time0) : 0 : 2, ' мин.');
  readln; {* Ждем нажатия Enter *}
End.