Создайте массив a из 18 целых чисел, принадлежащих полуинтервалу [0;30)
Подсчитайте k количество элементов, значение которых превышает 15

А вот где write(a[i]:3, ‘ ‘) там точно 3?

var a: array[1..18] of integer; i, j,k: integer; begin for i := 1 to 18 do begin a[i]:=random(30); write(a[i]:3, ' ');end; writeln;for i := 1 to 18 do beginif a[i]>15 then k:=k+1;end;write(k);readln; end.

// PascalABC.NET 3.3, сборка 1625 от 17.01.2018// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(18,0,30); a.Println;  Writeln('Элементов, превышающих значение 15: ',a.Where(x->x>15).Count)end.Пример24 26 26 25 15 22 11 16 5 28 5 3 13 9 15 24 2 0Элементов, превышающих значение 15: 8