[Delphi] Wochentagausgabe in RePascal

[Hotwave]

Für die Schule benötige ich Hilfe, die Wochentagausgabe in Delphi ist ja einfach, weil es dazu eine eigene Funktion gibt.
Jetzt darf ich aber nur RePascal benutzen, heißt 3-Adress-Befehle und nur if, +, -,* und / sowie goto-Befehle.
Ich habe Probleme damit die lange Formel, die ich gefunden habe, in 3-Adress-Befehle zu übersetzen, weil die so lang und unübersichtlich ist.
Würde mich sehr über Hilfe freuen