Lenguaje PASCAL

Program promedio_3;
Var
 Total, contador : integer;
 Num, promedio : real;
Begin
Write (' Números a promediar: ');
Readln (Total);
Promedio:=0;{Inicializamos la variable en cero para la suma}
For contador:=1 to Total do
{En pascal la Estructura de repetir n veces se forma como la 
traducción de para variable=inico hasta fin hacer, y luego la
instrucción a repetir, en el caso de tener que repetir más
de una instrucción es necesario colocar estas entre un begin y un end 
como marcadores del bloque de instrucciones a realizar, al cerrar el bloque es 
necesario colocar un punto y coma, una buena practica de programación es 
colocar los marcadores de bloque begin y end y luego colocar las instrucciones 
entre ellas, asi como dejar una pequeña sangria para ubicar facilmente 
los bloques de instrucciones}
 Begin
  Write('Número: ');
  Readln (Num);
  Promedio := Promedio + Num / Total;
End;
{La suma de promedio con el incremento actual se puede asignar en la misma 
variable promedio, quedando esta con el nuevo valor para el proximo ciclo en el 
cual se le sumara nuevamente el incremento, por esta razón es que 
promedio se inicio con el valor cero, para que sea nula la contribución 
en el primer ciclo}
Writeln('El Promedio es: ', promedio:9:3);
End.

Lenguaje C

main()
{
 int total, contador;
 float num, promedio=0;
 printf(" Números a Promediar: ");
 scanf("%d", &total);
/* En C la estructura de repetición no es tan literal como en el Pascal */
/* tiene tres parametros que indican el numero de ciclos y las instrucciones */
/* se agrupan en bloques entre llaves, al cerrar el bloque se debe colocar */
/* un terminador de linea, es decir un punto y coma (;) */
 for (contador = 1; contador <= total; contador++)
 {
  printf(" Número: ");
  scanf("%f", &num);
  promedio = promedio + num / total;
 }
 printf("%s%f \n"," El Promedio es: ", promedio);
}

Lenguaje FORTRAN

        integer total, contador
        real num, promedio
        print *, 'Números a promediar: '
        read *,total
        promedio = 0
        do 100 contador = 1, total, 1
C       La estructura de repetición en Fortran  realizara todas las 
C       instrucciones siguientes hasta que encuentre la etiqueta correspondiente
        print *, 'Numero: '
        read *,num
        promedio = promedio + num/total
    100 continue
C       Las etiquetas son números que se utilizan para definir bloques o saltos 
C       en las instrucciones y para ello se coloca el número en la quinta 
C       columna de la linea a marcar
        print *, 'El promedio es ',promedio
        end