составьте программу ввода с клавиатуры элементов массива a 1..10 случайными целыми числами в диапазоне от 1 до 20 и выводит на экран элементы, занчения которых больше 5 и мешьше 15.

CONSTn=10;var mas:array[1..10] of integer;i:integer;beginrandomize;//ввод массива и его вывод на экранfor i:=1 to n do beginmas[i]:=random(19)+1;write(mas[i]:4);if (i=5) then writeln;end;//поиск чиселwriteln;write('Искомые числа: ');for i:=1 to n  doif (mas[i]>5) and (mas[i]<15) then write (mas[i]:4);end.