Ввести четырехзначное число. Определить симметрично ли оно. (Pascal)

[Poma][a]

Так-с. Позволю себе вставить свои 5 копеек.

ВНИМАНИЕ всё далее написанное(разумеется только в данном посте) может являть FALSE'ом..
Ну начнем :
В условии сказано :

используя только операции целочисленной арифметики

В коде же господина BDA есть Ord - к данной функции вопросов нет, она может употребляться к любым порядковым типам (разумеется целочисленный является порядковым), но там так же есть and, мы знаем что он может быть употреблен как к числа, так и к булевским операндам, в данном случае and работает с логическими выражениями, которые не являются целыми. Значит не удовлетворяет условию.

Рассмотрим вариант господина TinMan'а, там мы видим sqr, мы знаем что sqr работает с вещественными и целыми числами, значит всё хорошо. (прекрасная маркиза, всё хорошо, всё хорошо )

Вот наверное всё...

Приведу свой вариант :

WriteLn (Abs((n div 1000 - n mod 10)) + Abs ((n div 100) mod 10 - (n mod 100) div 10) + 1);