`\text{ Program baitap;}`
`\text{ Var   a: Array[1 .. 100] of integer;}`

                    `\text{ b: Array[1 .. 100] of integer;}`

                    `\text{i, n, d : integer;}`

`\text{ Begin}`

          `\text{ Write(' Nhap so phan tu cua mang n= '); Readln(n);}`

`\text{For i:= 1 to n do}`

          `\text{ begin}`

                      `\text{ Writeln(' Nhap phan tu thu a[',i,']= ');Readln(a[i]);}`

          `\text{ end;}`

`\text{ Write (' Mang vua nhap : ');}`

`\text{ For i:= 1 to n do }`

          `\text{ Write( a[i] : 4 );}`

`\text{ Writeln}`

`\text{ d:= 0;}`

`\text{ For i := 1 to n do }`

         `\text{ If a[i] > 0 then }`

                   `\text{ begin}`

                             `\text{ d := d + 1;}`

                              `\text{ b[d] := a[i];}`

                    `\text{ end;}`

                     `\text{ If d > 0 then }`

`\text{ Writeln( ' Cac phan tu duong trong mang la: ');}`

                      `\text{ For i := 1 to d do }`

                               `\text{ Write(b[i] :4);}`

`\text{ Writeln;}`

`\text{ Readln;}`

`\text{ End.}`

$\textit{#Lyz}$