Cho n và dãy số a từ a1 đến an. Tính tích các số Dương của dãy a. Xác định bài toán. b. Viết thuật toán

program TBC;
uses crt;
var a: integer;
      s: real;
begin
clrscr;
writeln('nhap so a: '); readln(a);
s:= s+a;
writeln('nhap so b: '); readln(a);
s:= s+a;
writeln('nhap so c: '); readln(a);
s:= s+a;
writeln('nhap so d: '); readln(a);
s:= s+a;
s:= s/4;
writeln('TBC la: ',s:2:1);
readln
end.

Uses crt;
Var n,dem,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        dem:=0; s:=0;
        For i:=1 to n do
                If i>=0 then inc(dem)
                Else s:=s+i;
        Write('Co ',dem,' so nguyen duong');
        Writeln;
        Write('Tong cac so nguyen am la: ',s);
        Readln