Kleine Anmerkungen:
1. Statt
A := B * C div D;
würde ich lieber
A := MulDiv(B,C,D);
nehmen, denn das Produkt
B * C
könnte zu einem Überlauf führen (Je nach Datentyp). 'MulDiv' führt die Rechnung als 64Bit Zahl durch, das ist sicher.
2. Statt 'Dreisatz' wäre hier
imho der 'Strahlensatz' ein richtiges Stichwort, wobei das letztendlich aufs Gleiche herauskommt.
3. Und 'Ja', Dreisatz gehört zum Grundwissen, aber manchmal sieht man eben den Wald vor lauter Bäumen nicht.