var
  i : Integer;
  c : char;
  suit : (Hearts, Clubs, Diamonds, Spades);

begin
  // Loop 5 times
  for i := (10 div 2) DownTo 1 do Writeln('i = ',i);

  // Loop 5 times
  for c := 'E' DownTo 'A' do Writeln('c = ',c);

  // Loop 3 times
  for suit := Diamonds DownTo Hearts do
    Writeln('Suit = ',Ord(suit));
end.