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.