(* 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;