Самый простой вариант - подсчитать сумму четных и нечётных через цикл, в котором берём остатки от деления.
Можно начать с конца и соответственно начать подсчитывать сумму только от первого числа с конца не равного 0. Подсчитываем через целочисленное деление на круглое число и нахождение остатка при деление на один. Данные, чередуя, прибавляем к разным переменным(пусть будут x1 и x2).
Затем проверяем остаток от деления одной переменной на другую. Если 0 - "Yes", иначе - "No"
For i=5 downto 1 do
If i Mod 2 = 1 then
a:= a+n div (10^(i-1)) mod 10
Else
B=B+ div (10^(i-1)) mod 10;