uses crt;
Var
A,B,C:Integer;
Begin
writeln ('Введите 3 числа : ');
ReadLn(A,B,C);
WriteLn((A <> B) Or (B <> C) Or (A <> C));
end.