O algoritmo a seguir mostra o uso de um procediment...

O algoritmo a seguir mostra o uso de um procedimento com passagem de parâmetro por valor de L para PL e por referência de N para PN e de C para PC.

algoritmo "MDA"
var
   N : inteiro
   C : caractere
   L : logico
procedimento P14(var PN:inteiro;var PC:caractere;PL:logico)
inicio
      PN <-65
      PL <- FALSO
      se (PN MOD 4 = 3) entao
            PC < - "FLASH"
      senao
             PC < - "PHOTOSHOP"
      fimse
fimprocedimento
inicio
   N <-17
   C<-"INDESIGN"
   L <- FALSO
   P14(N,C,L)
   N <- N MOD 13
   se L = VERDADEIRO entao
        C<-"ILLUSTRATOR"
   fimse
   escreval(N:5,C:-10," ",L)
fimalgoritmo

Após a execução, o algoritmo ira gerar a seguinte saida: