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

не известно имя N for i:=1 to n do в этой строке

ой, да, извини, по привычке, исправь там n на 20

readln(n); неизвестно имя n Если вместо n ставлю 20 то нельзя считывать данные этого типа

var a:array [1..20] of integer;s,k,i:integer;begink:=0; s:=0;for i:=1 to n doread(a[i]);readln(n);for i:=1 to 20 doif a[i]<=n then begink:=k+1;s:=s+a[i];end;writeln('Кол-во:',k);writeln('Средн.арифм.:',s/k)end.