programa idades20;
 
{ Criado por Giovani Da Cruz }
 
const
  NUM_IDADES = 20; // Constante que indica o numero de idades a serem lidas
 
var
  I : Integer;
  vSoma, vIdade : Integer;
 
  vMedia : Double;
inicio
 
 
  vSoma := 0; // Iniciando o acumulador
  para I := 1 to NUM_IDADES do
  inicio
    Escreva('Informe a idade ', I);
    Leia(vIdade);
 
    vSoma := vSoma + vIdade;
  fim;
 
  { Calculando a media }
  vMedia := vSoma / NUM_IDADES;
 
  { Exibindo a media das idades lidas }
  Escreva('A media das idades lidas e: ', vMedia);
 
 
fim.

(*
 
Faça um programa que leia a idade de 20 pessoas. Calcule a média das idades.
 
*)
 
program idades20;
 
{ Criado por Giovani Da Cruz }
 
const
  NUM_IDADES = 20; // Constante que indica o numero de idades a serem lidas
 
var
  I : Integer;
  vSoma, vIdade : Integer;
 
  vMedia : Double;
begin
  Writeln('Idades 20 - Algoritmos com lacos. Show Delphi. (Giovani Da Cruz)' + #10#13);
 
  vSoma := 0; // Iniciando o acumulador
  for I := 1 to NUM_IDADES do
  begin
    Write('Informe a idade ', I, ': ');
    ReadLn(vIdade);
 
    vSoma := vSoma + vIdade;
  end;
 
  { Calculando a media }
  vMedia := vSoma / NUM_IDADES;
 
  { Exibindo a media das idades lidas }
  Writeln(#10#13 + 'A media das idades lidas eh: ', (vMedia) :0:2);
 
  Write(#10#13#10#13, 'Tecle "Entrer" para sair.');
  Readln;
 
end.