Case utasítás - példaprogram

program CasePl;
uses Crt;
var  Kar: char;
begin
  ClrScr;
  ReadLn(kar);
  case Kar of
    'A'..'Z', 'a'..'z': WriteLn('betű');
    '0'..'9':           WriteLn('számjegy');
    '.', ',', '!', '?': WriteLn('írásjel');
    else                WriteLn('egyéb karakter')
  end;
  ReadLn
end.