Помогите, пожалуйста

Question

Помогите, пожалуйста

---

Answer 1

24,27,33,36,39,42,48

Comments

в паскале ннадо

---

я бейсик только знаю

Answer 2

Var i:integer; begin for i:=20 to 50 do if (i mod 3=0) and (i mod 5 <>0) then writeln(i); end.