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

Var
  n,i:integer;
  a:array[1..15]of integer;
begin
for i:=1 to 15 do
  readln(a[i]);
writeln('Массив: ');
for i:=1 to 15 do
  begin
  write(a[i],' ');
  if a[i]>9 then n:=n+1;
  end;
writeln;
writeln('ответ: ',n)
end.