program EvgeniiSp;
uses Crt;
var
  flag: boolean;
  n,i,x,k,j: integer;
  mas: array[1..20] of integer;
   
//------ Input_data ------//
  procedure Input_data;
   begin
    write('Введите натуральное число n: ');
    readln(n);
   end;
   
//---- Output_data ------//
  procedure Output_data;
   begin
    k:=0;
    x:=n;
    flag:=true;
    while n > 0 do     //проверим сколько цифр в числе
     begin
      k:=k+1;
      mas[k]:=n mod 10;
      n:=n div 10;
      writeln(mas[k]);
     end;
    for i:=1 to k do    // сравним цифры
     for j:=1 to k do
      if  (mas[i] = mas[j]) and (i <> j) then flag:=false;
    if  flag = true then  writeln('цифры в числе различны.')
         else  writeln('цифры в числе не различны.');
   end;
   
begin
   ClrScr;
   Input_data;
   Output_data;
end.