Даны натуральные числа от 1 до 100 Напечатать те из них, которые делятся на 3 и
оканчиваются на 1

21,51,81

Можешь пожалуйста отметить мой ответ лучшим пожалуйста ❤️

===== PascalABC.NET ======

begin

 Range(1,100).Where(p -> (p mod 10 = 1) and (p mod 3 = 0)).Print

end.