[Resolvido] Registros

Dawe galera, não tenho ideia alguma de como resolver esse algoritmo, se alguém puder me ajudar agradeço :)

Desenvolva uma solução que armazene o nome, o endereço e da data de nascimento de

três pessoas. Cada pessoa deve ser representada por um objeto, definido por uma

estrutura de dados. A data de nascimento também deve ser uma estrutura. O nome e o

endereço de cada pessoa devem ser informados pelo teclado, enquanto a data de

nascimento deve ser gerada aleatoriamente, utilizando a função abaixo. A cada leitura e

processamento, exiba os dados informados.

funcao CriaData(var D: Data)

inicio

D.Mes ß 1 + (aleatorio() MOD 12)

D.Ano ß 1950 + (aleatorio() MOD 49)

D.Dia ß 1 + (aleatorio() MOD 30)

fim