Instructiunea de selectie multipla CASE

Instructiunea de selectie multipla CASE

   Sintaxa:

case expresie_ordinala of
   caz1: intr1;
   ..
   cazn: instrn

   else instrn_
end

   Exemple:
case Ch of
   'A'..'Z', 'a'..'z': WriteLn('Litera');
   '0'..'9': WriteLn('Cifra');
   '+','-','*','/': WriteLn('Operator')
   else WriteLn('Caracter special')
end;

program TestEminescu;
var an:integer;
begin
   Write('In ce an s-a nascut Eminescu? '); ReadLn(an);
   case an of
      1850: WriteLn('Foarte bine!');
      1849,1851: WriteLn('Aproape bine!');
      1845..1848: WriteLn('Cu ',1850-an, ' ani mai tarziu!');
      1852..1855: WriteLn('Cu ',an-1850, ' ani mai devreme!');
      1800..1844, 1856..1899: WriteLn('Ati nimerit secolul!')
      else
         WriteLn('Cultura dumneavostra are lacune grave!')
   end;
   ReadLn
end.