Language: 
Русский
English
case (reserved word)
The case statement consists of an expression (the selector) and a list of statements, each prefixed with a case.
Syntax
 case expression of
   case: statement;
   ...
   case: statement;
 end
OR
 case expression of
   case: statement;
  ...
   case: statement;
 else
   statement
 end
Remarks
A case consists of one or more constants or ranges, separated by commas.
The else part is optional.
Example
 case Ch of
   'A'..'Z', 'a'..'z':  WriteLn('Letter');
   '0'..'9':            WriteLn('Digit');
   '+', '-', '*', '/':  WriteLn('Operator');
 else
   WriteLn('Special character');
 end;

 
 ::
      
 ::
      
 ::