viết chương trình nhập 1 dãy số thực gồm n(0<n<=0) phần tử từ bàn phím . Tính trung bình cộng các số âm và số dương. Đưa dãy vừa nhập và các kết quả timhs toán ra màn hình

program 0<n<=0; uses crt; var n,i,t:integer; begin clrscr; write('nhap 0<n<=0: '); readln(n); i:=0; t:=0; while i<n do begin t:=t+(2*i+1); i:=i+1; end; write('Tong la: ',t); readln end.