Дан целочисленный одномерный массив, заполненный с клавиатуры. сформируйте новый массив из

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] gt; 20) then sum := sum + 1;

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

end.