Напишите программу которая в последовательности натуральных чисел находит среднее арифметическое трехзначный чисел или

Program ert;varA: array [1..100] of integer;i, n, k, l, sum: integer;sredn: real;beginWriteln(\'Введите число элементов массива\');readln(n);for i:=1 to n do A[i]:=random(100);for i:=1 to n do write(A[i],\' \');for i:=1 to n do if (A[i]>99) and (A[i]<1000) then begin sum:=sum+A[i]; k:=k+1; end else l:=l+1;if l=n then writeln(\'Последовательность не содержит трехзначных чисел\') else begin sredn:=sum/k; Writeln(\'Среднее арифметическое трехзначных чисел равно: \',sredn); end;readln;end.Параметр l ввели для того, чтобы зафиксировать отсутствие трехзначных чисел в последовательности. Если очередной элемент не является трехзначным, то l увеличиваем на 1. Таким образом, если ни одного трехзначного числа не встретилось, то l будет равен длине последовательности n.Не забываем присвоить переменной sredn тип данных real, т.к. деление на множестве целых чисел невозможно.