program xxx;
uses crt;
type tset=set of 0..9;
var n,m:longint;
    mn_n,mn_m:tset;
procedure init(x:longint; var mn:tset);
  begin
    mn:=[];
      while x<>0 do
        begin
          mn:=mn+[x mod 10];
          x:=x div 10;
        end;
  end;
BEGIN
clrscr;
writeln('Ââåäèòå ïåðâîå ÷èñëî');
readln(n);
init(n,mn_n);
writeln('Ââåäèòå âòîðîå ÷èñëî');
readln(m);
init(m,mn_m);
if mn_n<=mn_m then
writeln('âåðíî')
else
writeln('íåâåðíî');
readln;
End.