const
    bunm=101;
    tunm=104;
type
    studid=bunm..tunm;
    course=(math,phys,chem,engl,pasc);
    mark=0..100;
    scoretable=array[studid,course] of mark;
    avescore=array[studid]of real;
var
    id:studid;
    cr:course;
    st:scoretable;
    av:avescore;
    i:integer;
    t:real;
    j:course;
begin
    for i:=bunm to tunm do
    begin
        for j:=math to pasc do
            read(st[i,j]);
        readln
    end;
    for i:=bunm to tunm do
    begin
        t:=0;
        for j:=math to pasc do
           t:=t+st[i,j];
           av[i]:=t/5;
    end;
    writeln;writeln;
    writeln(' ':10,'***Table of student,marks***');writeln;
    writeln(' ':5,'Num.Math.Phys.Chem.Engl.Pasc.Ave.');
    writeln('_______________________________________________');
    for i:=bunm to tunm do
    begin
        write(' ':4,i:5);
        for j:=math to pasc do
        write(st[i,j]:6);
        writeln(av[i]:6:1);
    end;
    writeln('_______________________________________________');
    readln
end.