Viết hàm nhập từ bàn phím một dãy các số nguyên, mỗi số cách nhau bởi dấu cách.

program DanhSach; var A, B, C: array of Integer; n, i, j, k: Integer; begin { Nhập dãy A } Write('Nhập số phần tử của dãy A: '); Readln(n); SetLength(A, n); Write('Nhập dãy A: '); for i := 0 to n - 1 do Read(A[i]); { In dãy A ra màn hình } Writeln('Danh sách A:'); for i := 0 to n - 1 do Write(A[i], ' '); Writeln; { Trích dẫn các phần tử lớn hơn 0 vào danh sách B } j := 0; SetLength(B, n); for i := 0 to n - 1 do if A[i] > 0 then begin B[j] := A[i]; Inc(j); end; SetLength(B, j); { In danh sách B ra màn hình } Writeln('Danh sách B:'); for i := 0 to j - 1 do Write(B[i], ' '); Writeln; { Trích dẫn các phần tử nhỏ hơn 0 vào danh sách C } k := 0; SetLength(C, n); for i := 0 to n - 1 do if A[i] < 0 then begin C[k] := A[i]; Inc(k); end; SetLength(C, k); { In danh sách C ra màn hình } Writeln('Danh sách C:'); for i := 0 to k - 1 do Write(C[i], ' '); Writeln; end.