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

var tmp, sum, i, n: integer; function f (n: integer): boolean; begin f: =false; while n > 0 do if (n mod 10) mod 2=1 then exit else n: =n div 10; f: =true; end; begin read (n); for i: =1 to n do begin read (tmp); if f (tmp) then sum: =sum+tmp; end; writeln (sum); end.