Question

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

Answer 1

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