ruanhugo

Olá,boa noite!

Sou iniciante em programação,estou na faculdade e a gente está aprendendo a programar pelo pascal,eu gostaria de saber como calcular "a média",estou tentando resolver o seguinte problema:

 

• Fazer um programa que:
• 
  
• Leia um número indeterminado de linhas contendo cada uma a idade de um indivíduo.
• 
  
• A Ultima linha, que não entrará nos cálculos, contém o valor da idade igual a zero;
• 
  
• . Calcule e Escreva a idade média deste grupo de indivíduos

   

Então comecei a fazer o programa e até então tava indo tudo bem(Pelo menos é o que eu acho),sendo que quando executei apareceu a média normalmente,mas não ficou de acordo com o que é solicitado,acredito que é por que formulei a média errado,então,gostaria de saber se alguém poderia me ajudar a resolver esse problema,veja:

Program Exercicio1;var Idade : Integer;    Quantidade_individuo : Integer;    media : real;    soma : real;Begin    Soma := 0;    Quantidade_individuo :=0;    Write (' Informe a sua idade: ');Read (Idade);Soma := soma+idade;Quantidade_individuo := Quantidade_individuo+1;Media := Soma/Quantidade_individuo;Writeln(' A Idade media é:',media);End.