// kate: cfgIndentCase off
begin
   case ce of
   1: s1;
   2: begin
         s2;
         s3
      end;
   3: s4;
   end;
