Program ch_distincte;
Var ch:string;
(**************************************) 
Procedure saisie (var ch:string);
Begin 
Repeat writeln('Saisir une chaîne non vide :'); 
readln(ch);
Until ch<>''; 
End; 
(************************************) 
Function distincte (ch:string):boolean; 
var i:integer; test:boolean; 
Begin 
i:=0; 
test:=true;
Repeat i:=i+1; 
If pos(ch[i],ch)<>i Then test:=false; 
Until (test=false) or (i=length(ch)); 
distincte:=test; 
End; 
(**************** P.P ******************) 
begin
saisie(ch);
If distincte(ch) then writeln('cette chaîne est distincte')
Else writeln('cette chaîne est non distincte');
End.