Play audio slide show -- Keyboard shortcut: 'x'  Back to slide -- Keyboard shortcut: 'u'        next  Play sound for this slide -- Keyboard shortcut: 'y'  karakter.pas - Et Pascal program der illustrerer brugen af enumeration types.Lecture 3 - slide 9 : 39
Program 1

Program karakterProg;
uses Crt;
Type simpel_karakter = (bestaaet, ikke_bestaaet);
     tal_karakter = (nul_nul, nul_tre, fem, seks, syv, otte,
                     ni, ti, elleve, tretten);

function omsaet_karakter(k: tal_karakter): simpel_karakter;
begin
  if k <= fem
  then omsaet_karakter := ikke_bestaaet
  else omsaet_karakter := bestaaet
end;

procedure print_karakter(k: simpel_karakter);
begin
  case k of
   bestaaet: writeln('bestaaet');
   ikke_bestaaet: writeln('ikke_bestaaet')
  end
end;

begin
  ClrScr;
  print_karakter(omsaet_karakter(syv));
  print_karakter(omsaet_karakter(fem));
  ReadKey
end.