var a,s,i: integer;
begin
s:=0;
for i:=1 to 10 do
a:=random(20)+1;
write(a,' ');
if a mod 4=0 then s:=s+a;
end;
writeln;
writeln(s);
end.
var a,s,i: integer;
begin
s:=0;
for i:=1 to 10 do
begin
a:=random(20)+1;
write(a,' ');
if a mod 4=0 then s:=s+a;
end;
writeln;
writeln(s);
end.