Проверьте равна ли сумма первых чисел и двух последних?

Program pr; Var a,x1,x2,x3,x4,sum1,sum2: integer; Beginreadln (a); x1: =a div 1000; x2: =(a div 100) mod 10; x3: =(a mod 100) div 10; x4: =a mod 10; sum1: =x1+x2; sum2: =x3+x4; if sum1=sum2 then Writeln ('Да') else Writeln ('Нет'); readln; end.