Program Occurence_car;
Var ch : String;
i, j, n : Integer;
Begin
Writeln ('Saisir une chaîne');
Readln (ch);
For i:=1 To Length (ch) Do
Begin 
n:=0;
For j:=1 To Length (ch) Do
If ch[i]=ch[j] Then n:=n+1;
If i = POS (ch[i], ch) Then Writeln ('Occurrence de ', ch[i], ' = ', n);
End;
End.