Определить сколько литров бензина база отпустила отдельно за каждый день? — Pascal(Паскаль)

uses crt;

var
  summa, raz, st, day1, 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.