program odinak(input,output);
var  a,c,d:integer;
     b:boolean;
begin
  write('vvedite chislo: ');
  read(a);
  c:=a mod 10; d:=a div 10;
  b:=(c=d mod 10)or(c=d div 10)or(d mod 10=d div 10);
  writeln(b)
end.