Заполнить массив T размерностью M значениями, введенными с клавиатуры.

Вывести на экран в одну строку каждый 2 элемент массива, который больше заданного значения K. (Язык программирования - Паскаль)

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