CODE EXAMPLE FOR PASCAL

pascal case example

program casexemple;
uses crt;
var ch:integer;
begin
    write('Your choice:');
    read(ch);
    case ch of
     1:write('Your choice is',ch);
     2:write('Your choice is',ch);
     3:write('Your choice is',ch);
     4:write('Your choice is',ch);
    end;
   
end.