program lon_nho;

uses crt;

var A:array[1..1000] of integer;

      n,i:integer;

begin

     write('Nhap n: ');   readln(n);

     for i:=1 to n do

           begin

                write('Nhap so thu ',i,': ');  readln(A[i]);

           end;

     write('Cac so lon hon 0: ');

     for i:=1 to n do

           if A[i]>0 then write(A[i],' ');

     writeln;

     write('Cac so nho hon 0: ');

     for i:=1 to n do

           if A[i]<0 then write(A[i],' ');

     readln;

end.

Var n,i : integer;

      A: array [1..100] of integer;

begin

   writeln('Do dai cua day so la:');Readln(n);

for i:=1 to n do begin

readln(A[i]);

If A[i]=0 then begin

writeln('Hay nhap lai so');readln(A[i]);

end;

If A[i] > 0 then writeln('Cac so lon hon 0 la:',A[i],'   ',)

                 else writeln('Cac so nho hon 0 la:',A[i],'   ',)

end;

Readln

end.

(có thể có 1 số phần mình viết sai hoặc nhầm)