Проверить истинность высказывания : все цифры данного трехзначного числа различны

var n,i,x1,x2,x3,x4: integer;
begin
read (n);
  x1:=n div 100;
  x2:=n mod 100;
  x4:=x2 mod 10;
  x3:=x2 div 10;
 
  writeln(x1,' ',x3,' ',x4);
   if (x1<>x3) and (x1<>x4) and (x3<>x4) then write('YES') else write('NO');
    readln; readln;
end.

var
  n: integer;
begin
  repeat
    write('Введите трехзначное число n: ');
    readln(n);
  until n in[100..999];
  if ((n mod 10)<>(n div 10 mod 10))and((n mod 10)<>(n div 100))
    and((n div 10 mod 10)<>(n div 100)) then 
      writeln('Цифры числа не равны') else
        writeln('Есть одинаковые цифры');
  readln;
end.

var
  n: integer;
begin
  repeat
    write('Ââåäèòå òðåõçíà÷íîå ÷èñëî n: ');
    readln(n);
  until (n>=100)and(n<=999);
  if ((n mod 10)<>(n div 10 mod 10))and((n mod 10)<>(n div 100))
    and((n div 10 mod 10)<>(n div 100)) then
      writeln('Öèôðû ÷èñëà íå ðàâíû') else
        writeln('Åñòü îäèíàêîâûå öèôðû');
  readln;
end.