Составить программу нахождения чисел от - 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