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

Program ert;

var

A: array [1 ... 100] of integer;

i, n, k, l, sum: integer;

sredn: real;

begin

Writeln ('Введите число элементов массива');

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, т. к. деление на множестве целых чисел невозможно.