program Switch; Var i : Integer; begin for i := 0 to 4 do begin case i of 1: Writeln('1'); 2: Writeln('2'); 3: Writeln('3'); otherwise Writeln('default'); end; end; end.