Var
a,b,c,d:integer;
begin
c:=1;
b:=0;
while a<>1 do begin
readln(a);
if a mod 2 <> 0 then begin
b:=b+1;
if b<=10 then c:=c+a;
end;
c:=c*a;
end;
writeln(b,' ',c);
end.
===== PascalABC.NET =====
begin
var n := Abs(ReadInteger('Введи целое число:'));
if (n mod 10) mod 4 = 0 then
Println('Да')
else
Println('Нет')
end.