Помогите ребятки ( задание 6 и 11)

6) var a,i,k,N,a1,a2,a3: integer;
begin
writeln('Введите количество чисел'); readln(N);
k:=0;
for i:=1 to N do begin
writeln('Введите число'); readln(a);
a1:=a div 100; a3:=a mod 10; a2:=(a-a1*100-a3) div 10;
if (a1end;
writeln('Ответ: ', k);
readln
end.

11) var a,i,k,N,a1,a2,a3: integer;
begin
writeln('Введите количество чисел'); readln(N);
k:=0;for i:=1 to N do begin
writeln('Введите число'); readln(a);
a1:=a div 100; a3:=a mod 10; a2:=(a-a1*100-a3) div 10;
if (a1+a2+a3) mod 2=0 then
k:=k+1;
end;
writeln('Ответ: ', k);
readln
end.