program  f;
label 1;
var p,i,j,n:integer;
    s:string;
    bb:boolean;
 
begin
1:write('Pi= '); readln(p);
if p>9999 then begin writeln('ERROR: Pi < 9999'); goto 1  end;
 
str(p,s);
bb:=false;
for i:=1 to length(s) do begin   n:=0;
for j:=1 to length(s) do
if i<>j then
if s[i]=s[j] then  inc(n);
if n=1 then  bb:=true;
                        end;
 
if not bb then writeln('RAZLICNI') else writeln('NE RAZLICNI');
 
readln;
end.