VAR
 N:LongInt;
 S,A:Byte;
BEGIN
 Write('N= ');
 Readln(N);
 Write('A= ');
 Readln(A);
 S:=0;
 Repeat
  S:=S+(N mod 10);
  N:=N div 10;
 Until N=0;
 Writeln(S=A);
 Readln;
END.