Program rtgf; Var w,r,z,k, count: Word; Begin Write('vvedite w,r,z,'); Readln(w,r,z); count:=0; While w>=r Do Begin k:=w Div z; count:=count+k; w:=w-k*r+k*z; End; Writeln('kolichestvo kuplenyx bytilok:',count) End.