Дан массив, состоящий из 14 элементов. массив заполняется пользователем после запуска программы. составьте программу нахождения количества элементов >15 в массиве

const n=14;

var a:array [1 ... n] of integer;

i, k:integer;

begin

for i:=1 to n do read (a[i]);

write ('Массив: ');

for i:=1 to n do

begin

if a[i]>15 then k:=k+1;

write (a[i],' ')

end;

writeln;

writeln ('Количество элементов больше 15: ', k);

end.