Дано четырёхзначное число. Верно ли, что сумма двух крайних цифр равна сумме двух средних? Паскаль.
Подробно и через mod и div)

var n, a, b, c, d: integer;beginwriteln('Введите четырёхзначное число');readln(n);a:=n div 1000; {первая цифра}b:=(n div 100) mod 10; {вторая цифра}c:=(n div 10) mod 10; {третья цифра}d:=n mod 10;{четвёртая цифра}if (a+d) = (b+c) then write('верно')else write('неверно');end.