program phuongt;
uses crt;
var P, T: array[1..10] of real;
i, n: integer;
dtb: real;
begin
clrscr;
write('Nhap so hoc sinh trong lop: '); readln(n);
for i:=1 to n do
begin
writeln('Nhap diem ban thu ', i);
write('Toan: '); readln(P[i]);
write('Van: '); readln(T[i]);
end;
dtb:=0;
for i:=1 to n do
begin
if (P[i]>=0) and (P[i]<=10) and (T[i]>=0) and (T[i]<=10) then
begin
write('Diem trung binh cua ban thu ', i, ': ');
dtb:=(P[i]+T[i])/2;
write(dtb:3:1);
writeln();
end
else write('Nhap sai diem, hay nhap lai');
end;
readln
end.