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.