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

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.