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.
