{* Задача 1 *}

Unit BAZA0;
Interface
Implementation
Begin
 writeln('Нефтебаза отпустила за два дня 2560 л. бензина. Во второй день база отпустила на 280 л. больше. Сколько литров бензина база отпустила отдельно за каждый день?');
End.

Program pas0;

Uses baza0.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  summa : real;
  raz   : real;
  st    : real;
  day1  : real;
  day2  : real;
Begin
  clrscr; {* Очистка экрана *}
  write('Сколько литров бензина отпустила нефтебаза за 2 дня');
  readln(summa);
  writeln('Введите на сколько отпущенное кол-во бензина одного дня больше чем другого');
  readln(raz);
  st := (summa - raz) / 2.0;
  day1 := st;
  day2 := st + raz;
  writeln('первый день-', day1 : 7 : 2, 'л.');
  writeln('второй день-', day2 : 7 : 2, 'л.');
End.