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 .
UHJvZ3JhbSBGcmVxX0xldHRyZSA7CkNvbnN0IG49MzU7ClZhciBMRVQgOiBBcnJheSBbMS4ubl0gb2YgQ2hhcjsKRkUgOiBBcnJheSBbJ0EnLi4nWiddIG9mIEJ5dGU7CmkgOiBCeXRlOwpqIDogQ2hhcjsKQmVnaW4KUmFuZG9taXplOwpGb3IKaSA6PSAxIFRvIG4gRG8gCkJlZ2luCkxFVFtpXSA6PSBDSFIgKDY1KyBSYW5kb20gKDI2KSk7CldyaXRlIChMRVRbaV0gOjIpOwpXcml0ZWxuOwpFbmQ7CkZvciBqIDo9ICdBJyBUbyAnWicgRG8gRkVbal0gOj0gMDsKRm9yIGkgOj0gMSBUbyBuIERvIEZFW0xFVFtpXV0gOj0gRkVbTEVUW2ldXSArIDE7CldyaXRlbG47CldyaXRlbG47CkZvciBqIDo9ICdBJyBUbyAnWicgRG8gV3JpdGUgKGo6Mik7CldyaXRlbG47CkZvciBqIDo9ICdBJyBUbyAnWicgRG8gV3JpdGUgKEZFW2pdOjIpOwpFbmQu