program CTTTB; uses crt; var TB,x:real; n,y: integer; begin Write('Hay nhap so so thuc ban can tinh TB'); Readln(n); for y:=1 to n do begin Write('Nhap so thu',y);Readln(x); TB:=TB+x; end; TB:=TB/n; Writeln('Trung binh cong cua',n,' so nhap vao tu ban phim la',TB); Readln; End.
