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

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