Pascal/Turbo Pascal - programa pascal

{Mira esto}

 program notas;

   uses

     crt;

   type

     notas_alumno = array[1..3] of real;

   var

     alumno : array[1..20] of notas_alumno;

     i, cont, k : integer;

   procedure entrada_notas;

   begin

      write('   entre numero alumnos 20 max : ');

      readln(cont);

      if cont > 20 then

      cont := 20;

      for k := 1 to cont do

      begin

         for i := 1 to 3 do

         begin

         write('  Entre Notas alumno ',k,' nota n. ',i,' : ');

         readln(alumno[k][i]);

         end;

         writeln;

         write(' Resultado = ',alumno[k][1] + alumno[k][2] + alumno[k][3] /

                                                                100:0:2);

         writeln;

      end;

   end;

   begin

      entrada_notas;

      readkey;

   end.