Задана последовательность чисел N1,N2,N3,N4. Составить программу вычисления количества (K) положительных чисел, содержащихся в этой последовательности — Pascal(Паскаль)

const
  MAXN = 100;

var
  n, k, i: longint;
  a: array [1 .. MAXN] of longint;

function dfs(v: longint): longint;
var
  result: longint;
begin
  result := 0;
  if (v = 0) then
    result := 0
  else
  begin
    if (a[v] > 0) then
      inc(result);
    inc(result, dfs(v - 1));
  end;
  dfs := result;
end;

begin
  write('Vvedite chslo elementov posledovatelnosti:');
  readln(n);
  for i := 1 to n do
  begin
    write('a[', i, '] = ');
    readln(a[i]);
  end;
  k := dfs(n);
  writeln;
  writeln('Kolichestvo polozhitelnyh:');
  writeln('k = ', k);
  readln;
  readln;

end.