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: