var a,sum,i:integer;beginfor i:=1 to 5 dobeginreadln (a);if (a mod 4=0) and (a mod 10=6) then sum:=sum+a;end;writeln (sum);readln;end.
var a,sum,i:integer;
begin
for i:=1 to 5 do
begin
readln (a);
if (a mod 4=0) and (a mod 10=6) then sum:=sum+a;
end;
writeln (sum);
readln;
end.