var
sum, min, c, a, b: integer;
count: byte; p: boolean;
BEGIN
count:=0; min:=32767; sum:=0;
write('-> ');
repeat
read(c);
if (c<min) and (c<>0) then min:=c;
sum:=sum+c;
p:=false; a:=abs(c);
repeat
b:=a mod 10;
if (b mod 2=0) then p:=true;
a:=a div 10;
until a=0;
if not(p) then count:=count+1;
until (c=0);
writeln(' Сумма: ', sum);
writeln(' Мин.: ', min);
writeln('Эл-тов: ', count);
END.