viết chương trình nhập vào 1 mảng số nguyên in ra tích các số dương trong mảng

program bai_giai;
uses crt;
var n,i,s:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i]>0)then s:=s*a[i];
        end;
  write('tich cac chu so lon hon 0 trong day so tren la:',s);
 readln
end.

program sksk;

uses crt;

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

      i, n, t : integer;

begin

clrscr;

t := 1;

write('nhap so luong phan tu co trong day :');readln(n);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

if a[i] > 0 then t := t * a[i];

end;

writeln('tich cac so dương co trong mang la :', t);

readln

end.