program case_test (output);

var i : integer;

procedure casey (k : integer);
begin
  write (k);
  case k of
   0 : writeln (' 0');
   1 : writeln (' 1');
   2 : writeln (' 1')
  end {ESAC}
  otherwise writeln (' Other')
end;

begin
  writeln ('Case test');
  for i := 0 to 10 do casey (i)
end.