Составьте для вычислителя алгоритм, пользуясь которым он запросит последовательность n чисел и сообщит среднее арифметическое.

проверь орфографию и если не будет потом работать измени i:=1 на i:=0

pascal 

var 

    n,z,l:integer;

    a:array[1..30] of integer;

begin

readln('kol-vo chisel-',n);

for i:=1 to n do

begin

readln(a[i]);

l=l+a[i];

end;

z=l/n;

writeln('srednee arifm-',z);

end.