Дано натуральное число n. Проверить,будут ли все цифры числа различными.

var
a:array [1..10] of integer;
i,k:integer;
begin
For i:=1 to 10 do
begin
a[i]:=random(4)+2;
writeln(a[i]);
if a[i]<=2 then
inc(k);
end;
writeln('Takux ',k, ' чeл');
end.

var
s:string;
a:array [1..100] of integer;
i,count,max:integer;
begin
readln(s);
for i:=1 to length(s) do
begin
if s[i]=' ' then inc(count);
if (s[i]<>' ') and (count>0) then
begin
a[i]:=count;
count:=0;
end;
end;
max:=0;
For i:=1 to 100 do
begin
if a[i]>max then max:=a[i];
end;
writeln('наибольшее количество идущих подряд пробелов ',max);
end.

program sa;
const
n=3;
var
a:array [1..n,1..n] of integer;
i,j:integer;
begin
writeln('Первоначальная');
For i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(51)-25;
write(a[i,j]:6);
end;
writeln;
end;
writeln('Результат');
writeln;
For i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]>=0 then a[i,j]:=a[i,j]+a[i,n] else
a[i,j]:=a[i,j]+a[i,1];
write(a[i,j]:6);
end;
writeln;
end;
end.

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.

var c0,c1,c2,c3,c4,c5,c6,c7,c8,c9,c,n:integer;
begin
readln(n);
c0:=0;c1:=0;c2:=0;c3:=0;c4:=0;c5:=0;c6:=0;c7:=0;c8:=0;c9:=0;
while n<>0 do
 begin
  c:=n mod 10;
    if c=0 then c0:=c0+1;
    if c=1 then c1:=c1+1;
    if c=2 then c2:=c2+1;
    if c=3 then c3:=c3+1;
    if c=4 then c4:=c4+1;
    if c=5 then c5:=c5+1;
    if c=6 then c6:=c6+1;
    if c=7 then c7:=c7+1;
    if c=8 then c8:=c8+1;
    if c=9 then c9:=c9+1;
  n:=n div 10;
  end;
  
if (c0>1) or (c1>1) or (c2>1) or (c3>1) or (c4>1) or (c5>1) or (c6>1) or (c7>1) or (c8>1) or (c9>1) then write('В числе не все цифры разные')
else write('В числе все цифры разные');
end.