Задача без условного оператора - Free Pascal

Формулировка задачи:

3.4. Целочисленная арифметика. Если четырехзначное число, введенное с клавиатуры, является симметричным (например 1331,0550), то вывести 1, в противном случае - любое другое число. Уже неделю не могу решить эту задачу.

Решение задачи: «Задача без условного оператора»

Листинг программы

var n:integer;
    f:boolean;
begin
repeat
write('Введите четырехзначное число n=');
readln(n);
until(n>999)and(n<10000);
f:=(n div 1000=n mod 10)and(n div 100 mod 10=n div 10 mod 10);
write(ord(f));
readln
end.

Объяснение кода листинга программы

Объявлены две переменные: n (четырехзначное число) и f (булево значение).
Запускается цикл repeat-until, который будет выполняться до тех пор, пока введенное число n не будет в диапазоне от 1000 до 9999.
Внутри цикла происходит проверка на правильность ввода числа (четырехзначное число, первая цифра которого равна последней цифре числа, деленного на 1000 и последней цифре числа, деленного на 10).
Если условие выполняется, то выводится значение переменной f.
Код завершается после нажатия любой клавиши.