program ct;
uses crt;
var i,n:integer;
Dtoan, Dvan:array[1..100] of real;
begin
write('nhao so hoc sinh=');readln(n);
for i:=1 to n do
begin
write('nhap diem toan [',i,']=');readln(Dtoan[i]);
write('nhap diem van[',i,']=');readln(Dvan[i]);
end;
writeln('trung binh cua moi ban la');
for i:=1 to n do
write((Dtoan[i]+Dvan[i])/2:3:1);
readln
end.