Aqui esta chefe
Algoritmo "gerador de numeros"
Var a,b,c,d,f,g : inteiro
h,i,j : caractere
outros_numeros : vetor[1..10] de inteiro
num_escolhidos : vetor[1..40] de inteiro
num_aleatorios : vetor[1..20] de inteiro
Inicio escreval("Vamos Escolher 40 Números De 1 Até 80")
para a de 1 ate 4 faca h:=(numpcarac(a))
se a < 10 ENTÃO
h := " "+h
fimse
c:=1
repita escreva("Digite o ",h,"º número ")
leia(b)
se (b >0) e ( b < 81 ) ENTÃO
num_escolhidos[a] := b
senao
escreval("Só Pode Ser Números De 1 Até 80")
c:=2
fimse
c:=c-1 ate c = 0
fimpara
limpatela
escreva("Vamos Escolher 20 Números Entre Esses 40")
para a de 1 ate 20 faca
b:=randi(40)+1
num_aleatorios[a] := num_escolhidos[b]
escreva(num_aleatorios[a]," - ")
fimpara
escreval()
escreval("Escolha 10 Números Entre Esses 20 Que Estão Aí")
para a de 1 ate 10 faca
h:=(numpcarac(a))
se a < 10 ENTÃO
h := " "+h
fimse
repita g:=0
escreva("Escolha O ",h,"º Número")
leia(b)
para d de 1 ate 20 faca
se b = num_aleatorios[a] ENTÃO
f:=1 fimse se f=1 ENTÃO
outros_numeros[a]:=b
senao se g=0 ENTÃO
escreval("Esse Número Não Está Entre Esses 20 Números Escolha Outro")
g:=1
fimse c:=2
fimse
fimpara
c:=c-1 ate c = 0
fimpara
Fimalgoritmo