У школьников было 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.