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

Подробно и через mod и div)

Var n, a, b, c, d: integer;

begin

writeln ('Введите четырёхзначное число') ;

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.