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.