1.Одномерный массив целых чисел вводится с клавиатуры. Записать на место элементов с чётными номерами нули, на место элементов с нечётными номерами – единицы. Размерность массива выберите произвольно.
2. В массиве хранятся сведения об оценках 25 учеников по 1 предмету. Определить количество неуспевающих по этим предметам учеников.
3. Вычислить сумму отрицательных элементов одномерного массива вещественных чисел, введённого с клавиатуры. Размерность массива выберите произвольно.
ПОМОГИТЕ ПОЖАЛУЙСТА ,НУЖНО НАПИСАТЬ ПРОГРАММЫ В PASCAL(ABC)

1)Program n1;const n=5;var a: array [1..n] of integer;i: integer;beginfor i:=1 to n do readln(a[i]);for i:=1 to n do if( i mod 2=0) then a[i]:=0else a[i]:=1;for i:=1 to n do writeln(a[i]);end.2)Program n2;const n=25;var a: array [1..n] of integer;i,k: integer;beginrandomize;for i:=1 to n dobegina[i]:=random(5)+1;if a[i]<3 then k:=k+1;end;writeln(k);end.3)Program n3;const n=5;var a: array [1..n] of integer;i,S: integer;beginS:=0;for i:=1 to n do readln(a[i]);for i:=1 to n do if (a[i]<0) then S:=S+a[i];writeln(S);end.