program diemtrungbinh;

uses crt;

var T,V,A,tb:array[1..100] of real;

      n,i:byte;

begin

     clrscr;

     write('Nhap so luong hoc sinh: ');   readln(n);

     for i:=1 to n do

          begin

               writeln('- Hoc sinh thu ',i,':');

               write('+ Diem toan: ');   readln(T[i]);

               write('+ Diem van: ');    readln(V[i]);

               write('+ Diem anh: ');    readln(A[i]);

               tb[i]:=(T[i]+V[i]+A[i])/3;

               writeln('Diem trung binh cua ban la: ',tb[i]:3:2);

               readln;

          end;

     readln;

end.

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.