Var i: Integer, sum: Integer;
Begin
for i := 13 to 99 do
if (mod(i, 13) = 0)
sum := sum + i;
write( sum );
end.
