Вводятся N произвольных натуральных чисел. Найти сумму тех из них, в составе…

program chisla; vari,n,a,s: integer; begins: =0; writeln ('Введите кол-во произвольных натуральных, которые будете вводить'); readln (n); for i: =1 to n do beginwriteln ('Введите число\'); readln (a); If (a mod 2=0) and (a div 10) mod 2=0) and (a div 100) mod 2=0) and (a div 1000) mod 2=0) and (a div 10000) mod 2=0) and (a div 100000) mod 2=0) and (a div 1000000) mod 2=0) then begin s: =s+a; end else; end; writeln (s); end.