Решите одно из предложенных, умоляю дан массив А5 найти сумму и количество положительных элементов дан массив А5 определить количество отрицательных элементов дан массив А6 определить количество положительных элементов

1) const n=5; var a:array[1..n]of integer; i,k,s:integer; begin    for i:=1 to n do          begin              readln(a[i]);                    if a[i]>0 then                       begin                         s:=s+a[i];                          k:=k+1ж                    end;    writeln('ARRAY:');    for i:=1 to n do        write(a[i]:4);         writeln;         writeln('S: ',S,'  k: 'k); end.