2、PROGRAM largest（input，output）；

　　VAR

　　a：ARRAY[1··5，1··5]OF integer；

　　max ，i，j，h，l：integer；

　　BEGIN

　　max：＝－maxint -1；

　　FOR i：＝1 TO 5DO

　　FOR j：＝1TO 5 DO

　　read （a[i，i]；

　　FOR i：＝1 TO 5DO

　　FOR j：＝1TO 5 DO

　　IF max＜a[i，j]THEN

　　BEGIN

　　max：＝a[i，j]；

　　h：＝i；

　　l：＝j

　　END；

　　writeln（max，h，l）

　　END.

　　评分细则：

　　max初值占1分；

　　输入占1分；

　　求max，h，l占7分；输出占12分。

　　3、 PROGRAM xyz（input，output）；

　　VAR

　　a，b：SET OF ‘A’··‘Z’；

　　ch：char；

　　BEGIN

　　a：＝[]； b：＝[]；

　　REPEAT

　　read（ch）；

　　IF （ch＞＝‘A’）AND （ch＜＝‘Z’）

　　THEN a：a＋[ch]

　　UNTIL ch＝‘·’；

　　REPEAT

　　read（ch）；

　　IF （ch＞＝‘A’） AND （ch＜＝‘Z’）

　　THEN b：＝b＋[ch]

　　UNTIL ch＝‘·’；

　　FOR ch：＝‘A’ TO ‘Z’DO

　　IF （ch IN a） AND（ch IN b）

　　THEN write（ch）

　　END.

　　评分细则：

　　统计第一句大字字母，2分；

　　统计第二句中大写字母，2分；

　　输出共同的大写英文字母，6分。