var i, s: integer;
begin
s:=0;
for i:=6 to 36 do
if (i mod 2 = 0) then s:=s+i;
end;
(6..36).Step(2).Sum.Print
end.
var i, s: integer;
begin
s:=0;
for i:=6 to 36 do
if (i mod 2 = 0) then s:=s+i;
end;
begin
(6..36).Step(2).Sum.Print
end.