Сделал на С++, может кто-нибудь переведет или вы поймёте логику программы. В целом вводим число и с помощью простого деления и остатка от деления, выражаем отдельные числа. Находим сумму и проверяем условия.

#include
using namespace std;
int main(void)
{   setlocale(LC_ALL, "Russian");  
  int num, a1, a2, a3, a4, Sum;  
  cout << "Введите четырехзначное число: " ;  
  cin >> num;  
  a1 = num / 1000; //делим введенное число на цело,
  a2 = (num / 100)%10; // а потом используем остаток от деления
  a3= (num / 10) % 10;
  a4 = num % 10;
  Sum = a1 + a2 + a3 + a4;  
   if (Sum%2==0)  
    {      
        cout << "Сумма четная" <        if (a1 + a2 == a3 + a4)        
               cout << "ДА, условие выполняется" << endl;      
        else        
               cout << "НЕТ, условие не выполняется" << endl;  
    }
  else  
       cout << "Сумма нечётная." <  system("pause"); 
  return 0;
}