Женьке

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.