Знайти суму всіх чисел від -1000 до 0, які кратні 18

Pascal:

var i,s:integer;

begin

s:=0;

for i:=0 downto -1000 do begin

if (i mod 18 = 0) then

inc(s);

end;

writeln(s);

end.

Python:

s=0

for i in range(-1000,1):

if i%18==0:

s+=1

print(s)