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