Найти среднее арифметическое A B c (Паскаль) как можно быстрее

writeln('введите число');

for i :=1 to a do

   begin

     write('число ', 0+i, ' = ');

     readln(m);

     end;

     for i:=1 to a do

     begin

     m:=m+mas[i];

     end;

     writeln('среднее арифм. ',g/a);

m - число

а - это количество чего-либо