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)