Дан целочисленный массив на n элементов вывести на экран элементы, которые меньше или равны своему номеру. Заранее спасибо

const n=15;  var a:array[1..n] of integer; i:integer;  begin Randomize; writeln('Массив A:'); for i:=1 to n do  begin  a[i]:=random(16);  write(a[i]:3);  end; writeln; for i:=1 to n do   if a[i]<=i then write(a[i]:3) else write(' ':3); writeln; end. Пример: Массив A:  14  8 14  1  6  2  4  7 10  3  4  6 15 14  2            1     2  4  7     3  4  6    14  2

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin   var a:=ArrRandom(ReadInteger('n='),-20,20);   a.Println;   a.Where((x,i)->x<=i+1).Println end. Тестовое решение: n= 15 -16 7 -17 -9 6 3 2 20 -15 7 -10 10 -6 -19 1 -16 -17 -9 3 2 -15 7 -10 10 -6 -19 1