Нефтебаза отпустила за 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 литров бензина.