Дан массив, размером 11. Элементы массива случайные числа из диапазона [1, 15]. Все элементы массива уменьшить на 2. Вывести исходный и измененный массив (в 2 строки). А затем в измененном массиве найти и вывести (в третьей строке) количество элементов, меньших 9.

program LessThanNine;

Var 

 A, B : Array of Integer;

 I, Kolvo : Integer; 

begin

  randomize;

  SetLength(A,11);

  SetLength(B,11);

  Kolvo := 0;

  For I:=0 to 10 do

  begin

   A[I]:=random(16);

   Write(A[I], ' ');

  end;

  Writeln; 

  For I:=0 to 10 do

  begin

   B[I]:=A[I] * 2;

   Write(B[I], ' ');

  end;

  Writeln; 

  For I:=0 to 10 do

   if B[I]<9 then

     Kolvo := Kolvo + 1;

  Write('Количество элементов меньше 9-ти: ', Kolvo);

end.