Напишите программу в Pascal
Дано трехзначное число х. Если х-четное число, то вычислить сумму цифр этого числа. Если х-нечетное, то вычислить число-перевертыш

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= 531135n= 42814