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)
