Сколько четырехзначных чисел, у которых сумма первой и третьей цифр равны сумме второй и четвертой. Напишите программу, которая позволит вывести все такие числа. в паскале

Предыдущий
вопрос Следующий
вопрос

Пример программы на Pascal:

program FourDigitNumbers
va
num, first, second, third, fourth: integer
begi
for num := 1000 to 9999 d
begi
first := num div 1000
second := (num div 100) mod 10
third := (num div 10) mod 10
fourth := num mod 10
if (first + third) = (second + fourth) the
begi
writeln(num)
end
end
end.

Эта программа выводит все четырехзначные числа, у которых сумма первой и третьей цифр равна сумме второй и четвертой.