Задан массив из 9 целых чисел. Вывести на экран элементы, которые больше 15.

Program Mas;

Var a:array[1 ... 100] of integer;

i, n: integer;

Begin randomize;

writeln ('Введите размерность массива', n) ;

readln (n) ;

for i:=1 to n do

a[i]:=random (45) - 1; readln;

for i:=1 to n do

begin if a[i]>15 then

write (' ', a[i]) ;

end;

readln;

End.