В массиве хранится информация о средней цене продуктов за месяц. Составить программу, которая подсчитывает сколько продуктов стоили дороже 150 руб. Элементов в массиве-15, диапазон цен- от 0 да 200руб. На экран вывести все элементы массива и элементы удоволетворяющие нашему условию.
Напиши полностью программу)

const n=15; var a:array[1..n] of integer;i,k:integer; beginRandomize;writeln('Массив Цены');for i:=1 to n do begin a[i]:=random(201); write(a[i]:4); end;writeln;k:=0;writeln('Дороже 150 руб:');for i:=1 to n do if a[i]>150 then begin write(a[i]:4); k:=k+1; end;writeln;writeln('k = ',k);end.Пример:Цены: 136 16 50 45 62 41 163 149 175 35 14 51 110 156 175Дороже 150 руб:163 175 156 175k = 4