program phuongt;
uses crt;
var A, B: array[1..10] of real;
i, n: integer;
tb: 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(A[i]);
write('Van: '); readln(B[i]);
end;
tb:=0;
for i:=1 to n do
begin
if (A[i]>=0) and (A[i]<=10) and (B[i]>=0) and (B[i]<=10) then
begin
write('Diem trung binh cua ban thu ', i, ': ');
tb:=(A[i]+B[i])/2;
write(tb:3:1);
writeln();
end
else write('Nhap sai diem');
end;
readln
end.