uses crt;
var a,b,c: array[1..100] of real;
i,n: byte;
begin
clrscr;
write ('nhap so luong hoc sinh: '); readln (n);
for i:=1 to n do
begin
clrscr;
write ('nhap diem toan cua hoc sinh thu ',i,': '); readln (a[i]);
write ('nhap diem van cua hoc sinh thu ',i,': '); readln (b[i]);
c[i]:=(a[i]+b[i])/2;
end;
clrscr;
writeln ('diem trung binh cua cac hoc sinh: ');
for i:=1 to n do
begin
write ('diem trung binh cua hoc sinh thu ',i,': ',c[i]);
writeln;
end;
readln;
end.