program z1220;
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
clrscr;
mn:=[];
while x<>0 do
begin
mn:=mn+[x Mod 10];
x:= x div 10;
end;
end;
begin
writeln(' Vvedite pervoe 4islo');
readln(n); init(n, mn_n);
writeln(' Vvedite vtoroe chislo');
readln(m); init(m, mn_m);
if mn_n=mn_m then writeln ('Verno')
else writeln (' Neverno');
readln;
END.