一、请阅读下列各题程序，并将程序的正确运行结果写出来。

  1、program examl；

    var

    x,y：byte；

    begin

    readln(x，y)；

    if x>y then writeln(x-y)else writeln(y-x)；

    end．

输入：36  48

输出：______________

2、program exam2；

    var

    S，i：integer；

    begin

    S：=0；

  For i：=1 to lO do S：=s+i：

  writeln(‘s=’，s)；

end.

程序运行结果：_______________________

3、program exam3；

  var d，p：Integer；

  begin

    p：=1；

    d：=7；

    while d>1 do

    begin

    p：=2*(p+1)；

    d：=d-1；

    end；

    writeIn(p)；

  end．

程序运行结果：_____________________

4、program exam4；

    var

    n，i，t：longint；

    tem：integer；

    s：string；

    begin

    write(’Input n：’)；readln(n)；

    S：=’1’;

    repeat

    i：=length(s)；

    whiIe s[I]=’1’do

    begin

    s[i]：=’O’；dec(i)；

    end；

    if i>0 then s[i]：=’i’

    else s：=‘1’+s；

    val(s，t，tem)；

  Until t mod n=O；

  writeln(n，’*’，t diV n，’=’，s)；

end．

输入：7

输出：________________________

5、program exam5；

Var

    a：array[1…16] of jnteger；

    i，j：integer；    

begin

    for i：=1 to 16 do

    begin

    a[i]：=O；

    for j：=1 to i do

    a[i]：=a[i]+2*j-1；

    end；

    for i：=1 to 16 do

    begin

    w rite(a[i]：5)；

    If i mod  4=O then writeln；

    End;

 End.

程序运行结果：________________________

 

二、

【问题描述】

    学校举行校园歌曲演唱赛，共设7个评委，去掉一个最高分，去掉一个最低分，其余评

委的平均分即为选手的最终得分。试编程，输入7个评委的分数后，输出选手的最终得分。

(顶格输出，保留一位小数)

【输入文件】

    输入文件为t1.in，共1行，输入7个评委的分数。

【输出文件】

  输出文件为t1.out，输出文件只有1行，即为此选手的最终得分。

【样例输入】

8    6    7.5    5    8.5    9    7

【样例输出】

7.4