Program baitap;
Uses crt;
Var A,B,C:array[1..200] of real;
i,n:integer;
Begin
Clrscr;
Write('So hoc sinh can tinh diem trung binh:');
Readln(n);
For i:=1 to n do
Begin
Writeln('Diem Toan cua hoc sinh thu ',i,':');
Readln(A[i]);
Writeln('Diem Van cua hoc sinh thu ',i,':');
Readln(B[i]);
Writeln('Diem Anh cua hoc sinh thu ',i,':');
Readln(C[i]);
End;
For i:=1 to n do
Writeln('Diem trung binh cua hoc sinh thu ',i,' la ', (A[i]+B[i]+C[i])/3:3:2);
Readln
End.