Estrutura case

 Informe um codigo

Program exe1 ;
   Uses CRT;
     var
       op:integer;
 Begin
  
writeln('Digite o codigo 101');
   writeln('Digite o codigo 102');
   writeln('Digite o codigo 103');
   writeln('Digite o Codigo 104');
   writeln('Digite o Codigo 105');
   writeln('Digite o Codigo 106');
   readln(op);
     case op of
       101:begin
             writeln(' Seu cargo é Digitador');
           end;
         102:begin
               writeln('Seu cargo é Operador');
            end;
            103:begin
                  writeln('Seu cargo é Programador');
                 end;
                104:begin
                      writeln('Seu cargo é Projetista');
                   end;
                   105:begin
                         writeln('Seu cargo é Analista de Sistemas');
                      end;
                      106:begin
                            writeln('Seu cargo é Chefe de CPD');
                         end
                         else
                         Writeln('Opção invalida');                
 
   End;
 end.
Origem: FASEM