Введите трёхзначное число. определите, все ли цифры данного числа различны и выведите на экран соответствующее сообщение: "различны" либо "одинаковые".

Var  s: string;
begin
  read(s);
  if(s[1] = s[3]) or (s[2] = s[3]) or (s[1] = s[2])
    then write('Одинаковые')
  else write('Различны');
end.