program phuongt;
uses crt;
  var T, M, V, A: array[1..100] of integer;
       i, n, s, max: integer;
begin
        clrscr;
        write('Nhap so hoc sinh: '); readln(n);
        if n<3 then write('It nhat co 3 ban!.') else
        begin 
                 for i:=1 to n do
                 begin
                          write('Nhap diem tin cua ban thu ', i, ': '); readln(T[i]);
                          write('Nhap diem toan cua ban thu ', i, ': '); readln(M[i]);
                          write('Nhap diem van cua ban thu ', i, ': '); readln(V[i]);
                          write('Nhap diem anh cua ban thu ', i, ': '); readln(A[i]);
                          write('Tong diem cua ban thu ', i, ': ', T[i]+M[i]+V[i]+A[i]);
                          write('TB cua ban thu ', i, ': ', (T[i]+M[i]+V[i]+A[i])/4:3:1);
                 end;
                 max:=T[1]+M[1]+V[1]+A[1];
                 for i:=1 to n do if max<(T[i]+M[i]+V[i]+A[i]) then
                 begin
                             max:=T[i]+M[i]+V[i]+A[i];
                             s:=i;
                 end
                 write('Ban hoc sinh co diem cao nhat la ban thu ', i);
                 write(' va ban co so diem la ', max, ' diem');
        end;
        readln
end.