totoloto

Algoritmo "semnome"
Var
   i,sorte:inteiro
   pote:vetor[1..49] de inteiro
   chave: vetor[1..6] de inteiro
Inicio
   para i de 1 ate 49 faca
      pote[i]<-i
   fimpara
   i<-1
   enquanto i <7 faca
      sorte<- randi(49)+1
      chave[i]<-pote[sorte]
     
      i <- i+1
   fimenquanto

   para i de 1 ate 6 faca
      escreva(chave[i])
   fimpara