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
begin
sum:= 0;
num:=0;
while a<> впиши условие do
begin
readln(a);
sum:=sum+a
if (a mod 2=0) and (a mod 5=0) then inc(num);
end;
writeln(sum);
writeln (num);
end