program Case_Demo;

  (* Program demonstrujici praci s prikazem case. Tento
     program se snazi rozpoznat zadany znak *)

uses Crt;

var c:char;

begin
  ClrScr;

  Write('Zadej znak: ');
  ReadLn(c);
  WriteLn;
  Write('Znak ',c,' je ');
  case c of
    ' '                    : WriteLn('mezera');
    '"'                    : WriteLn('uvozovky');
    '!'                    : WriteLn('vykricnik');
    '%'                    : WriteLn('procento');
    ':'                    : WriteLn('dvojtecka');
    '.'                    : WriteLn('tecka');
    ','                    : WriteLn('carka');
    ';'                    : WriteLn('strednik');
    '?'                    : WriteLn('otaznik');
    ''''                   : WriteLn('apostrof');
    '*','+','-','/'        : WriteLn('aritmeticky operator');
    '<','=','>'            : WriteLn('relacni operator');
    '(',')','[',']','{','}': WriteLn('zavorka');
    '0'..'9'               : WriteLn('cislice');
    'A'..'Z'               : WriteLn('velke pismeno abecedy');
    'a'..'z'               : WriteLn('male pismeno abecedy')
    else                     WriteLn('nerozpoznany znak');
  end;
end.