var a:array[1..25] of integer;
s,i:integer;
begin
for  i:=1 to 25 do begin a[i]:=random(50); write(a[i]:4);end;
for i:=1 to 25 do
if (a[i] mod 3=0) then  s:=s+a[i];
writeln;
writeln('ρσμμΰ=',s);
end.