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

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 begin
if a[i]>15 then k:=k+1;
end;
write(k);
readln; end.