program tbm;

uses crt;

var tb: real; n,i:integer;

a:array[1..100] of real;

begin

clrscr;

tb:=0;

write('Nhap so mon hoc:');readln(n);

for i:=1 to n do begin

write('Nhap diem cua mon thu ',i,':');readln(a[i]);

tb:= tb+a[i];

end;

tb:=tb/n;

write(' Diem trung binh cua ',n,' mon hoc la:',tb);

readln

end.