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.

Uses crt;

Var TB1,TB2,TBCN: real;

i,n: integer;

Begin

Clrscr;

Write (' Nhap so luong hoc sinh vao: '); Readln(n);

For i:=1 to n do

Begin

Write('Nhap diem TBHK I cua hoc sinh thu ',i,' vao: '); Readln(TB1);

Write ('Nhap diem TBHK II cua sinh thu ',i,': '); Readln(TB2);
Writeln;
TBCN:=(TB1+(TB2*2))/3;

End;
Writeln;
For i:=1 to n do
Begin
Write ('Diem TBCN cua hoc sinh thu ',i,' la: ',TBCN:1:1);
Writeln;
End;
Readln;
End.