1.вывести на экран все четные двухзначные числа. 2.вычеслить сумму всех трехщначныз чисел кратных 4

Var
a:array[1..1000]of integer;
b:array[1..1000]of integer;
i,n,summ:integer;
begin
writeln('введите кол-во цифр');
readln(n);
writeln('введите цифры');
for i:=1 to n do
readln(a[i]);
for i:=1 to n do begin
if (a[i]>=10)and (a[i]<100) then
b[i]:=a[i];
end;
for i:=1 to n do begin
if (a[i]>=100) and (a[i]<1000) and (a[i] mod 4=0) then
summ:=summ+a[i];
end;
for i:=1 to n do begin
if b[i]>0 then
write(b[i],' ');
end;
writeln;
write('сумма 3-х значных чисел кратных 4=',summ);
end.