(* sample case statement, with 'value' declared as an integer *) case value of 1: writeln('First statement.'); 2: writeln('Second statement.'); otherwise writeln('No statement here.'); end;