1. Διαίρεση Ακεραίων 2. Διαίρεση Πραγματικών 3. Μονά/Ζυγά 0. Έξοδος
case epilogi of 1: writeln('**ΔΙΑΙΡΕΣΗ ΑΚΕΡΑΙΩΝ**'); 2: writeln('**ΔΙΑΙΡΕΣΗ ΠΡΑΓΜΑΤΙΚΩΝ**'); 3: writeln('**ΜΟΝΑ/ΖΥΓΑ**'); 0: writeln('Γεια..'); end {case}
case {μεταβλητή} of {τιμή μεταβλητής}: {εντολή ή εντολές μέσα σε begin .. end} {άλλη τιμή μεταβλητής}: {εντολή ή εντολές μέσα σε begin .. end} end
1. Πρόσθεση 2. Αφαιρεση 3. Πολλαπλασιασμός q. Έξοδος