pote

Algoritmo "semnome"
var
inicio
procedimento pin(n:inteiro)
Var
   p:vetor[1..4] de caracter
   c:vetor[1..4] de caracter
   aux:caracter
   sorte:inteiro
   i:inteiro
Inicio
   p[1] <- "a"
   p[2] <- "b"
   p[3] <- "c"
   p[4] <- "d"

   para i de 1 ate n faca
      c[i]<-p[randi(4)+1]
   fimpara
     para i de 1 ate n faca
     escreva(c[i])
   fimpara
fimprocedimento
pin(2)
Fimalgoritmo