{* Задача 7 *}

Unit Z_TAXIS;
Interface
Implementation
Begin
 writeln('В такси сели три пассажира, когда вышел первый на счетчике была сумма Sum1, когда вышел второй Sum2, когда третий Sum3. Вычислить сколько должен заплатить каждый пассажир такси, если стоимость за посадку Sum0.');
End.

Program z_taxi;

Uses z_taxis.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  Sum0 : word;
  Sum1 : word;
  Sum2 : word;
  Sum3 : word;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите сумму за посадку');
  readln(Sum0);
  writeln('Введите сумму, при выходе первого пассажира');
  readln(Sum1);
  writeln('Введите сумму, при выходе второго пассажира');
  readln(Sum2);
  writeln('Введите сумму, при выходе третьего пассажира');
  readln(Sum3);
  writeln('Сумма которую должен оплатить первый пассажир ',  (Sum0 + Sum1) / 3 : 0 : 2);
  writeln('Сумма которую должен оплатить второй пассажир ',  ((Sum0 + Sum1) / 3 + (Sum2 - Sum1) / 2) : 0 : 2);
  writeln('Сумма которую должен оплатить второй пассажир ',  ((Sum0 + Sum1) / 3 + (Sum2 - Sum1) / 2 + (Sum3 - Sum2)) : 0 : 2);
  readln; {* Ждем подтверждения пользователя *}
End.