Помогите Пожалуйста решить

Question

Помогите Пожалуйста решить

---

Answer 1

Var i:integer;
begin
for i:=9999 downto 1000 do
 if i mod 9=0 then write(i,' ');
end.

Comments

Спасибо огромное выручил )