Aula 05 Repita

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

program Aula05_repita;
uses Crt;
var
idade,altura,Total_altura,Indice:integer;
begin
 repeat
 Indice := Indice + 1;
 write ('digite a idade - ');
 readln (idade);
 write ('digite a altura - ');
 readln (altura);
 if idade >= 50 then begin
 Total_altura := Total_altura + altura;
 end;
 until idade <= 0;
 Indice := Indice - 1;
 if indice <> 0 then begin
 write ('Média da altura de pessoas com mais de 50 anos é ',total_altura / indice,'- ',Indice);
 end;
end.