Помогите сделать 4 и 5 задание. Срочно, пожалуйста!)

Спасибо от души

Пожалуйста

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!begin  var n:=70;  var a:=ArrRandom(n,0,2); a.Println;  Writeln('Количество нулей на нечетных местах: ',      Range(0,n-1,2).Select(i->a[i]).Where(t->t=0).Count)end.Пример0 2 1 2 2 0 2 1 2 2 2 2 1 1 2 2 2 2 1 2 2 2 0 2 0 0 2 0 2 0 0 2 2 0 2 1 1 0 0 2 0 2 0 1 2 2 0 2 0 0 2 0 2 1 1 0 2 1 2 1 0 2 1 2 1 0 0 1 2 1Количество нулей на нечетных местах: 11- - - - - - - - - -begin  var n:=35;  var a:=ArrRandom(n,0,2); a.Println;  Writeln('Количество единиц на четных местах: ',      Range(1,n-1,2).Select(i->a[i]).Where(t->t=1).Count)end.Пример1 2 0 0 1 1 2 1 1 1 0 2 1 2 2 1 1 1 0 1 0 0 2 2 2 1 2 1 2 2 1 2 0 1 1Количество единиц на четных местах: 9