program Test;
var i,s : Int32;
begin
s:=0;
for i:= 100 to 999 do
begin
if (i mod 8 = 0) or (i mod 9 = 0) then
begin
writeln(i);
s:=s+i;
end;
end;
write('Summ: ');
writeln(s);
end.