PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var (s,d,e):=(n div 100, n div 10 mod 10,n mod 10);
if n.IsEven then Writeln(s+d+e) else Writeln(e,d,s)
end.
Примеры
n= 531
135
n= 428
14