program Diem_tong_ket;
ues crt;
var n,i:integer;
A:array[1..100] of integer;
begin
clrscr;
write('nhap so ban trong lop;');readln(n);
writeln('nhap diem cua cac ban');
for i:=1 to n do
end;
begin
write('a[',i,']=');readln(a[i]);
write('nhap so mon');readln(m);
end;
a[i]:=k;
k:=k/m;
writeln('diem tong ket cua tung ban la'k);
readln;
end.