uses crt;
var ban,i:integer;
tb,t:real;
van,toan:array[1..100] of byte;
begin
clrscr;
t:=0;
repeat
begin
write('nhap so ban hoc: ');readln(ban);
for i:=1 to ban do
begin
write('nhap diem mon van cua ban ',i,': ');readln(van[i]);
write('nhap diem mon toan cua ban ',i,': ');readln(toan[i]);
tb:=(van[i]+toan[i])/2;
writeln('diem trung binh cua ban ',i,' la: ',tb:1:2);
t:=t+tb;
end;
end;
until ban>0;
writeln('diem trung binh cua ca lop la: ', (t/ban):1:2);
readln;
end.