Дан целочисленный одномерный массив, заполненный с клавиатуры. сформируйте новый массив из значений исходного массива, больших 20 и имеющих индексы, кратные 10.

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

b: array[1 ... 100] of integer;

n, i, sum: integer;

begin

writeln ('Введите количество элементов в массиве');

readln (n);

writeln ('Заполните массив с клавиатуры');

for i : = 1 to n do readln (a[i]);

for i : = 1 to n do if (i mod 10 = 0) and (a[i] > 20) then sum : = sum + 1;

writeln ('Количество элементов больше 20 и с индексами, кратными 10 равно ', sum);

end.