Idade com While - Versão 1

Idade-V1

Program Idade;

var
	nome, resposta: string;
	anoNasc, contador, soma, idade: integer;

Begin
	contador:= 1;
	while resposta <> 'S' do
	begin
		writeln('Qual seu nome e ano de nascimento (yyyy) :');
		read(nome, anoNasc);
		idade:= 2015-anoNasc;
		writeln('A idade de ', nome, ' eh ', idade);
		soma:= soma + idade;
		contador:= contador + 1;		
		writeln('Deseja continuar?');
		read(resposta);		
	end;
	
	writeln('A media das idades eh ', soma/contador);  
End.

Idade-V2

Program Idade;

var
	nome, resposta: string;
	anoNasc, contador, soma, idade, media: integer;

Begin
	contador:= 1;
	while resposta <> 'S' do
	begin
		writeln('Qual seu nome e ano de nascimento (yyyy) :');
		read(nome, anoNasc);
		idade:= 2015-anoNasc;
		writeln('A idade de ', nome, ' eh ', idade);
		soma:= soma + idade;
		contador:= contador + 1;		
		writeln('Deseja continuar?');
		read(resposta);		
	end;
	
	//Quando sai do laço, contador é sempre uma unidade a mais do que a quantidade de iterações, pois começa sempre com 1.
	//Então, temos que tirar uma unidade.
	
	contador := contador - 1;
	media := soma/contador;
	
	writeln('A media das idades eh ', media);  
End.

Idade-V3

//Versão do Everton

Program Idade;

var
	nome, resposta: string;
	anoNasc, contador, soma, idade: integer;

Begin

  //Contador começa com 0
	contador:= 0;
	while resposta <> 's' do
	begin
		writeln('Qual seu nome e ano de nascimento (yyyy) :');
		read(nome, anoNasc);
		idade:= 2015-anoNasc;
		writeln('A idade de ', nome, ' é ', idade);
		soma:= soma + idade;
		contador:= contador + 1;		
		writeln('Deseja calcular média?');
		read(resposta);		
	end;
	
	writeln('A média das idades é ', soma/contador);