viết chương trình nhập vào N mảng một chiều al…an in ra màn hình các số dương của mảng vừa nhập

var a: array[1..250] of integer;

       i, n: byte;

Begin

    Write(‘N = ‘); readln(n);

    For i:=1 to n do

       Begin

            Write(‘a[‘, i, ‘] = ‘); readln(a[i]);

       End; 

    for i:=1 to n if a[i]>0 then write(a[i], ‘ ‘);

    Readln

End.