составьте программу вычисления суммы всех отрицательных трехзначных чисел, кратных 70

var    i, s: integer;begin    for i := -999 to -100 do        if i mod 70 = 0 then            s := s + i;    writeln(s);end.