Jak i czym można zastąpić operator mod?

Operator mod realizowany jest w ten sposób (oto jego zamiennik): var ppp,x,y : integer; begin x := 133; y := 18; ppp := x - (x div y) * y; // = x mod y ShowMessage(IntToStr(ppp));

Cześć chciałem się zapytać jak realizowany jest operator mod. To znaczy, jak można go zastąpić za pomocą odejmowania, dodawania, mnożenie itp. Dzięki.