Зеленым написаны комментарии для лучшего понимания, не списывай их, а то спалишься:)
<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>
Var a,b,c,s:Integer;
begin
Read(s);
a:= s div 100;
b:= s div 10 mod 10;
c:= s mod 10;
if odd(s) then
WriteLn('Нечетное. произведение чисел равно '+a*b*c)
else
WriteLn('Четное. Сумма чисел равна '+(a+b+c));
end.