uses crt;
var a,b,c: array[1..100] of real;
i,n: integer;
begin
clrscr;
write ('nhap so luong hoc sinh: '); readln (n);
for i:=1 to n do
begin
write ('nhap diem trung binh ki 1 cua hoc sinh thu ',i,': '); readln (a[i]);
write ('nhap diem trung binh ki 2 cua hoc sinh thu ',i,': '); readln (b[i]);
c[i]:=(a[i]+(b[i]*2))/3;
end;
clrscr;
for i:=1 to n do write ('diem trung binh ca nam cua hoc sinh thu ',i,' la: ',c[i]:1:2);
readln;
end.