Дано четырех-значное число. Кратна ли сумма двух первых его цифр сумме двух его последних...

Question

Дано четырех-значное число. Кратна ли сумма двух первых его цифр сумме двух его последних цифр?

Answer 1

VAR
a,c1,c2,c3,c4: integer;
BEGIN
readln(a);
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if c1+c2=c3+c4 then writeln ('ДА') else writeln('НЕТ');
readln;
END.