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.