TP3/shell/tests/fixtures/t22_case.pas

program t22;
var
  x : integer;
begin
  x := 1;
  case x of
    1 : writeln('a');
    2 : writeln('b')
  end
end.