skup2

program skup2;
//napisati program pomocu koga se ispituje da li su
//sve cifre zadatog broja razlicite

type cifre= 0..9;
    skup= set of cifre;
var n,n1:longint;
    s:skup;
    c:cifre;
    rez:boolean;

begin
write(' broj: ');
readln(n);
n1:=n;
s:=[];
rez:=true;
while (n1>0) and rez do
begin
    c:=n1 mod 10;
    n1:= n1 div 10;
    rez:= not(c in s);
    s:=s+[c];
end;
if rez then writeln('razlicite')
    else writeln('nisu');


readln;
end.