program calc;var total: dword; i: integer; begin total := 0; for i:=1 to 1000 do if((i mod 15) = 0)then total += i; writeln('Total: ', total);end.
