TP3/shell/tests/fixtures/t111_caseelse.pas

program ce;
var X:integer;
begin
 X:=2;
 case X of
  1: writeln('one');
 else
  begin writeln('other') end;
 end;
 writeln('done')
end.