помогите ребятки ( задание 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 (a1<a2)and(a2<a3) then  k:=k+1;
end;
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.   

спасибо

Рад помочь )