var n1, n2, sm1, sm2 : integer; function sm ( i : integer ) : integer ; begin if i <= 0 then sm := 0 else sm := i mod 10 + sm ( i div 10 ) ; end ; begin write ('vvedi n1=' ) ; readln ( n1 ) ; write ('vvedi n2=' ) ; readln ( n2 ) ; sm1 := sm ( n1 ) ; sm2 := sm ( n2 ) ; if ( sm1 > sm2 ) then writeln ('sum n1 > sum n2' ) else if ( sm1 < sm2 ) then writeln ('sum n1 < sum n2' ) else writeln ('sum n1 = sum n2' ) ; end.