soma_numero := soma_numero + idade;

begin
  soma_idade := 0;
  for cont := 1 to 10 do
    begin
      writeln('Digite a idade ', cont);
      readln(idade);
      soma_idade := soma_idade + idade;
    end;
  writeln('A soma das idades e ', soma_idade);
  readln;
end.