Pascal / Basics
case-else.pas
PROGRAM case_else; VAR a: integer = 1; BEGIN case a of 1: WRITELN('One'); 2: WRITELN('Two'); 3: WRITELN('Three'); else WRITELN('None'); end; // One END.
View on GitHub