Помогите сделать номер 5​

Question

Помогите сделать номер 5​

---

Answer 1

var

 i: Integer;

begin

 for i := 100 to 999 do begin

   if i mod 9 = 0 then

     Write (i, ', ');

 end;

end.

// если делится на 9, то на 3 тоже, поэтому 3 можно не проверять, или условие написать так:

if (i mod 9 = 0) and (i mod 3 = 0) then