Program idades;
var
idade,criancas,adolescentes,adultos,cont:integer;
Begin
cont := 1;
criancas := 0;
adolescentes := 0;
adultos := 0;
while cont <= 10 do
begin
writeln('Qual a idade?');
read(idade);
if (idade < 13) then
begin
criancas := criancas + 1;
end
else if (idade < 18) then
begin
adolescentes := adolescentes + 1;
end
else adultos := adultos + 1;
cont := cont + 1;
end;
write('existem ',criancas,' crianças,',adolescentes,' adolescentes e ',adultos,' adultos');
End.