Alan27895

Tem que somar as idades maiores de 18 anos e as idades menores de 18 anos e mostrar os dois resultados ao usuário, mas tem que usar o comando Type. Estou aprendendo a programar, eu tentei fazer, só que o programa não esta executando corretamente, alguém pode me ajudar e falar onde que eu estou errado. Program Maiores_e_Menores_de_Idade; Type Idades=Integer; Var Idade,SomaMaior,SomaMenor:Idades; Cont:Integer; Begin SomaMaior:=0; SomaMenor:=0; For Cont:=1 to 10 do Begin Writeln('Digite a idade ',Cont); Readln(Idade); If Idade>=18 Then Begin SomaMaior:=SomaMaior+Idade; end Else Begin SomaMenor:=SomaMenor+Idade; end; end; Writeln('A soma dos maiores de idade e:',SomaMaior); Writeln('A soma dos menores de idade e:',SomaMenor); Readln; End.