var sum,a,num:integer begin
sum:= 0; num:=0; readln(a);
while a<>do begin
sum:=sum+a
if (a mod 2=0) and (a mod 5=0)
then num:= num+1
readln (a)
end;
writelh (sum), writelh (num)
end.

var sum,a,num:integer beginsum:= 0; num:=0; while a<> впиши условие do beginreadln(a);sum:=sum+aif (a mod 2=0) and (a mod 5=0) then inc(num);end;writeln(sum);writeln (num);end