Nhập vào 1 dãy n số nguyên A[1],A[2],...,A[n]. Đọc ra màn hình các thông tin sau: Số lượng các số hạng dương và tổng của các số hạng dương

var n,i,d:longint;
    a,t:int64;
begin
write('Nhap n: '); readln(n);
write('Nhap cac phan tu cua day: ');
for i:=1 to n do begin
                 read(a);
                 if a>0 then begin
                             inc(d);
                             t:=t+a;
                             end;
                 end;
writeln('So phan tu duong trong day la: ',d);
write('Tong cac phan tu duong trong day la: ',t);
end.

var n,i,d:longint;
    a,t:int64;
begin
write('Nhap n: '); readln(n);
write('Nhap cac phan tu cua day: ');
for i:=1 to n do begin
                 read(a);
                 if a>0 then begin
                             inc(d);
                             t:=t+a;
                             end;
                 end;
writeln('So phan tu duong trong day la: ',d);
write('Tong cac phan tu duong trong day la: ',t)