igroman95 Вот. Дружественный интерфейс. Делай лучшим, если помог.program pr;var a:array of integer;t,i,k,m:integer;beginwrite('Размер массива: ');readln(t);Setlength(a,t);write('Выводить элемент больше, чем: ');readln(k);writeln();writeln('Заполняем массив...');for i:=1 to t do beginwrite('Элемент массива ',i,': ');readln(a[i]);end;writeln();writeln('Следующие элементы больше ',k);for i:=1 to t do if a[i]>k then writeln('Элемент ',i,': ',a[i])end.