Ушкольников было s рублей. бутылка с соком стоит p рублей, пустая бутылка стоит b рублей.напишите программу, вычисляющую, сколько бутылок сока могут выпить ученики, если они пустые бутылки и на вырученные деньги и на деньги, оставшиеся от предыдущей покупки, покупают бутылки с соком. (на паскале)

program zadacha_1;
var
  s, p, b : real;
  n : integer;
begin
  n := 0;
  writeln('Введите количество денег у школьника пример:(10.00)');
  read (s);
  writeln('Введите стоимость сока пример:(10.00');
  read (p);
  writeln('Введите стоимость бутылки пример:(10.00');
  read (b);
  while s>=p do
    begin
    n := n + 1;
    s := s - p;
    s := s + b;
    end;
  writeln('Можно купить ', n, ' бутылок сока.');
end.