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

// 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.