Составить программу нахождения чисел от -100 до 100 кратных 7 pascal abc

Я взяла числа по модулю, иначе будет 0. Если тебя устраивает 0, тогда не пиши abs в условии. var s,a: integer; i:integer; begin a:=-101; for i:=1 to 200 do begin a:=a+1; if a mod 7=0 then s:=s+abs(a); end; writeln (s); end. Выводит: 1470