Program tinh_tong_N_so_nhap_tu_ban_phim; Var n, i: integer; tong, so: integer; BEGIN writeln('Chuong trinh tinh tong N so nhap tu ban phim'); write('Nhap vao N= '); readln(N); tong: = 0; for i:=1 to N do begin write('Nhap vao so thu [',i,']='); readln(so); tong:= tong + so; end; writeln('Tong cua N so vua nhap bang: ',tong:4); readln; END.