---

PROGRAM PolovinaBochki;
VAR
  V, T: INTEGER;  { V — текущий объём воды, T — время в минутах }
BEGIN
  V := 350;      { Начальный объём воды в бочке }
  T := 0;        { Начальное время }

  { Цикл, который выполняется, пока объём воды больше 175 литров }
  WHILE V > 175 DO
  BEGIN
    V := V - 3;  { Уменьшаем объём на 3 литра (вытекание за 1 минуту) }
    T := T + 1;  { Увеличиваем время на 1 минуту }
  END;

  { Вывод результата }
  WRITELN('Бочка опорожнится наполовину через ', T, ' минут.');
  WRITELN('Оставшийся объём воды: ', V, ' литров.');

  READLN;  { Ожидание нажатия Enter перед завершением программы }
END.