var i: integer;
begin
for i:=1000 to 9999 do
if (i mod 2=0) and (i mod 200=0) then
write(i,' ');
end.
Объяснение:
for i in range(1000, 10000):
if i % 2 == 0 and i % 200 == 0:
print(i)
