Program Freq_Lettre ;
Const n=35;
Var LET : Array [1..n] of Char;
FE : Array ['A'..'Z'] of Byte;
i : Byte;
j : Char;
Begin
Randomize;
For
i := 1 To n Do 
Begin
LET[i] := CHR (65+ Random (26));
Write (LET[i] :2);
Writeln;
End;
For j := 'A' To 'Z' Do FE[j] := 0;
For i := 1 To n Do FE[LET[i]] := FE[LET[i]] + 1;
Writeln;
Writeln;
For j := 'A' To 'Z' Do Write (j:2);
Writeln;
For j := 'A' To 'Z' Do Write (FE[j]:2);
End.