рекурсия div и mod, написал несовсем Опции

[maksimla]

надо написать рекурсионную процедуру без div и mod
вот так вводим 2 числа например 5 и 2 надо неиспользовая div и mod надо 5 div 2 = 2 без div и также остаток без mod
написал я только остаток как вычесляется

program Bevarde0;
var a,b:integer;
procedure del (z,x:integer);
var m:integer;
begin
if z>=x then begin del(z-x,x)  end
 else writeln(' ',z);
end;
begin
  WriteLn('vvedite dva cisla');
  readln(a,b);
  del(a,b);
  readln;
end.

а как посчитать результат после div?
мне кажется надо както так чтобы подсчитать сколько обращений к процедуре идет но как?