--- /dev/null
+PROGRAM BUCHSTABENHAEUFIGKEIT(INPUT,OUTPUT);
+ VAR BUCHST: CHAR;
+ ZAEHLER: ARRAY["A".."Z"] OF INTEGER;
+BEGIN
+ FOR BUCHST := "A" TO "Z" DO ZAEHLER[BUCHST] := 0;
+ WHILE NOT EOF DO
+ BEGIN
+ WHILE NOT EOLN DO
+ BEGIN
+ READ(BUCHST); WRITE(BUCHST);
+ IF ("A"<=BUCHST) AND (BUCHST<="Z") THEN
+ ZAEHLER[BUCHST] := ZAEHLER[BUCHST] + 1
+ END;
+ READLN; WRITELN
+ END;
+ FOR BUCHST := "A" TO "Z" DO WRITELN(BUCHST:10,ZAEHLER[BUCHST])
+END.