Даны бидон и кружка.найти сколько понадобится кружек для полного заполнения бидона(цикл,без оператора div и mod)

Объяснение:

var bidon, cup, n: integer;

begin

write('bidon=');

readln(bidon);

write('kruzhka=');

readln(cup);

n:=0;

while bidon > 0 do begin

   n:= n+1;

   bidon:= bidon - cup;

end;

writeln('Nado ', n, ' kruzhek');

end.