Ведите два числа например А=45 и B=8 и найдите их частное от деления нацело в переменной А,используя только операцию вычитания. Помогитеее!!

Не уверен, но надеюсь правильно)var a,b,Cmod,Cdiv:integer;beginreadln(a);readln(b);Cmod:=a;Cdiv:=0;repeatCmod:=Cmod-b;inc(Cdiv);until Cmod<b;writeln(Cdiv,' ',Cmod);readln;end.