[[cHackAll]]

Código Delphi [-]
       write('Introduce Numero: ');
       readln(numero);
Repeat
       contador := contador + 1;
       suma := suma + numero;
Until
       contador = 5;
Write('La suma de los numeros es: ',suma:2:2);
readln;
Write('La media es: ', suma/contador:2:2);
readln;