====== Case Of ======
<code delphi>
Case C of  
 ’a’ : WriteLn (’A pressed’);  
 ’b’ : WriteLn (’B pressed’);  
 ’c’ : WriteLn (’C pressed’);  
else  
  WriteLn (’unknown letter pressed : ’,C);  
end;
</code>