44359987f6d726ebb7c80a712031679cd8472336
[pdp8.git] / sw / src / pascal / BUCHST.PS
1 PROGRAM BUCHSTABENHAEUFIGKEIT(INPUT,OUTPUT);
2 VAR BUCHST: CHAR;
3 ZAEHLER: ARRAY["A".."Z"] OF INTEGER;
4 BEGIN
5 FOR BUCHST := "A" TO "Z" DO ZAEHLER[BUCHST] := 0;
6 WHILE NOT EOF DO
7 BEGIN
8 WHILE NOT EOLN DO
9 BEGIN
10 READ(BUCHST); WRITE(BUCHST);
11 IF ("A"<=BUCHST) AND (BUCHST<="Z") THEN
12 ZAEHLER[BUCHST] := ZAEHLER[BUCHST] + 1
13 END;
14 READLN; WRITELN
15 END;
16 FOR BUCHST := "A" TO "Z" DO WRITELN(BUCHST:10,ZAEHLER[BUCHST])
17 END.