Помогите, пожалуйста, срочно нужно решить 2 задачи по Паскалю, 7 класс. 1. С клавиатуры вводится четырёхзначное число.

Program N1;var chi: integer;beginread(chi);write((chi div 100) mod 10, chi div 1000, chi mod 10, (chi div 10) mod 100);end.Program N2;var arr: array [1..1000] of inteher;n,i,kol: integer;beginkol:=0;read(n);for i:= 1 to n do read(arr[i]);for i:=1 to n do if (i mod 2 = 1) and (arr[i] mod 2 = 0) then kol:=kol+1;write(kol);end.