program q178951;
uses crt;
const n=30;//Количество элементов
      k=10;//Количество элементов, которые должны удовлетворять принципу l
      l=6; //Сам принцип
var mas: array [1..n] of integer;//Массив, в который будут забиваться элементы
    i: Integer;//Счетчик
    j: Integer;//Считает элементы, удовлетворяющие принципу l
begin
 ClrScr;
 Randomize;
 Write('Набор элементов: ');
 for i:=1 to n do
  begin
   mas[i]:=Random(10)+1;//Забиваем массив значениями от 1 до 10
   Write(mas[i],', ');
  end;
 WriteLn;
 j:=0;
 Write('Элементы, удовлетворяющие принципу l: ');
 for i:=1 to n do
  if(mas[i]>l) then //Если выполняется принцип l, то
   begin
    write(mas[i],', '); //Выводим этот элемент
    inc(j)              //Увеличиваем счетчик
   end;
 WriteLn;
 if j>k then WriteLn('Условие k выполнено!')
 else WriteLn('Условие k не выполнено!');

 ReadKey;
end.