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;
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;