Вывод трехзначных чисел на экран - Turbo Pascal

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

Repeat вывести на экран такие 3-х значные числа, у которых разность двухразрядных чисел, разработанных из 1 и 2 чисел, а также из 2 и 3 равнялась 2 цифре.

Решение задачи: «Вывод трехзначных чисел на экран»

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

var n:integer;
    a,b,c:integer;
begin
n:=100;
repeat
c:=n div 10 mod 10;
a:=(n div 100)*10+c;
b:=c*10+n mod 10;
if abs(a-b)=c then write(n:4);
n:=n+1;
until n>999;
readln
end.

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

Переменная n инициализируется значением 100.
В цикле repeat-until выполняется до тех пор, пока значение переменной n не станет больше 999.
Внутри цикла переменная c инициализируется результатом деления n на 10, а затем на 10, что дает трехзначное число.
Переменные a и b инициализируются результатами вычисления (n/100)10 + c и c10 + n mod 10 соответственно.
Сравниваются значения переменных a и b с числом c. Если они равны, то число n выводится на экран в формате 4-х знаков.
Значение переменной n увеличивается на единицу.
Цикл повторяется до тех пор, пока условие n > 999 не будет выполнено.
По завершении цикла программа завершается и выводится сообщение readln.