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.