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

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

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

program FourDigitNumbers;
var
num, first, second, third, fourth: integer;
begin
for num := 1000 to 9999 do
begin
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) then
begin
writeln(num);
end;
end;
end.

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