Решить : среди всех четырехзначных чисел вывести на экран числа чётные и кратные 200​

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)