Ввести четырёхзначное число. найти сумму крайних и средних чисел.

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.