Program Minibank;
Type Kontotype = (checkKonto, aktionærKonto, pensionsKonto,
gevinstKonto);
Bankkonto typedefinitioner;
Procedure som gennemfører transaktioner;
Function LaesKontotype: KontoType; begin ... end;
begin
while not fyraften
do begin
kt := LaesKontoType;
udfør en transaktion kontotype kt
end
end.