<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
Range(20, 50).Where(t -> (t mod 3 = 0) and (t mod 5 <> 0)).Println
end.
<h2>21 24 27 33 36 39 42 48</h2>
А в какую СС перевести то надо?
Ответ в файле с расширением *.txt, потому что файлы *.kum не отправляются