Fórum será que alguen pode me ajudar?? #146950

Preciso de ajuda,para conseguir um estagio que é muito importante para meu futuro na profissão.
o caso é o seguinte,é uma provinha que eu não consegui fazer no dia do teste na empresa,e o gerente da empresa me deu um programinha para fazer em delphi,por isso preciso muito de sua ajuda,tenho certeza que para voce não é dificil.
desde ja muito obrigado,e que deus lhe abençoe!!

DETERMINAR AS POSSIBILIDADES DE OCORRENCIA DE RESULTADOS CARA E COROA NA SEQUENCIA DE 1000 LANÇAMENTOS VÁLIDOS DE 3 MOEDAS ,SENDO 1 DE R$ 0,25,1 DE R$ 0,50 E 1 DE R$ 1,00
AS MOEDAS SÃO EXTRAIDAS ALEATORIAMENTE DE UM RECIPIENTE.
APRESENTAR AO FINAL.
- ¬ DE MOEDAS DE 0,25 LANÇADAS
- ¬ DE MOEDAS DE 0,50 LANÇADAS
- ¬ DE MOEDAS DE 1,00 LANÇADAS

- ¬ DE RESULTADO CARA
MOEDAS DE 0,25
MOEDAS DE 0,50
MOEDAS DE 1,00

- ¬ DE RESULTADO COROA
MOEDAS DE 0,25
MOEDAS DE 0,50
MOEDAS DE 1,00

- ¬ DE LANÇAMENTOS INVÁLIDOS


eu comecei mas nao consigo terminar sera que vc pode me ajudar?

var
i : integer;
vetor : array[0..5] of integer;
begin
for i := 0 to 1000 do
inc(vetor[random(6)])
¬ DE MOEDAS DE 0,25 LANÇADAS :=vetor[0] + vetor[3];
- ¬ DE MOEDAS DE 0,50 LANÇADAS := vetor[1] + vetor[4];
- ¬ DE MOEDAS DE 1,00 LANÇADAS := vetor[2] + vbetor[5];

- ¬ DE RESULTADO CARA
MOEDAS DE 0,25 := vetor[0];
MOEDAS DE 0,50 := vetor[1];
MOEDAS DE 1,00 := vetor[2];

- ¬ DE RESULTADO COROA
MOEDAS DE 0,25 := vetor[3];
MOEDAS DE 0,50 := vetor[4];
MOEDAS DE 1,00 := vetor[5];

- ¬ DE LANÇAMENTOS INVÁLIDOS//não entendi essa