var
s,n,i,r:integer;
begin
for i:=31 to 99 do begin
if i mod 3 = 0 then
if (i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)
then s:=s+i;
end;
writeln(s);
end.
var
s,n,i,r:integer;
begin
for i:=31 to 99 do begin
if i mod 3 = 0 then
if (i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)
then s:=s+i;
end;
writeln(s);
end.