PROCEDURE LDiv(VAR Quot, Rest : LONGINT;
               a, b : LONGINT           );

VAR One : LONGINT;

BEGIN
  IntToLong(Quot,0);
  IntToLong(One,1);
  Rest := a;
  WHILE NOT LLess(Rest,b) DO BEGIN
    LSub(Rest,Rest,b);
    LAdd(Quot,Quot,One)
  END
END;