Составьте программу вычисление тех значений элементов массива которые меньше 16

Const m=200;
var a: array[1..m] of integer;
    i,n: integer;
begin
   write(количество элементов массива:  );
   readln(n);
   randomize;
   write(массив:  );
   for i:=1 to n do
   begin
     a[i]:=random(40);
     write(a[i], );
   end;
   writeln;
   write(элементы, меньшие 16:  );  
   for i:=1 to n do if a[i]<16 then
     write(a[i], );
end.

количество элементов массива:  15
массив:  6 22 28 39 24 3 19 15 35 22 2 2 22 1 32 
элементы, меньшие 16:  6 3 15 2 2 1 

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.