Нефтебаза отпустила за 2 дня 2560 л бинзина. Во второй день база отпустила на 250 л больше чем в первый. Сколько в каждый день? Решить надо в паскале. Объясните как поожалуйста.

Ну тут решил вводить числа не в самом коде, а через ввод с клавиатуры, т.к. мне кажется это более лучшим вариантом (но можно и сразу задать в константы X = 2560 и Y = 250, дело твоё.)

Потом я отнимаю от общего количества 250, чтобы уровнять эти 2 дня, делю на 2 и получаю сколько отпустила за каждый день. Теперь обратно добавляем ко 2 дню 250, чтобы не нарушалось условие задачи. Вывожу на экран. Всё 

Var
  day1, day2, x, y :real;
Begin
  Writeln(Нефтебаза отпустила за 2 дня X л бензина.);
  Writeln(Во второй день база отпустила на Y л больше чем в первый.);
  Write(Введите X: ); readln(x);
  Write(Введите Y: ); readln(y);

  day1 := (x - y) / 2;
  day2 := day1 + y;

  Writeln(За первый день было отпущено , day1, литров бензина.);
  Write(За второй день было отпущено , day2, литров бензина.);
End.

Вот лог программы
  Нефтебаза отпустила за 2 дня X л бензина.
  Во второй день база отпустила на Y л больше чем в первый.
  Введите X: 2560
  Введите Y: 250
  За первый день было отпущено 1155 литров бензина.
  За второй день было отпущено 1405 литров бензина.