Помогите, пожалуйста
24,27,33,36,39,42,48
в паскале ннадо
я бейсик только знаю
Var i:integer; begin for i:=20 to 50 do if (i mod 3=0) and (i mod 5 <>0) then writeln(i); end.