我想用pascal写一段代码，实现统计20个数中正负数的个数

以下是用 Pascal 编写的代码，实现统计20个数中正负数的个数：

program count_positive_negative;

var
  i, n, positive_count, negative_count: integer;

begin
  positive_count := 0;
  negative_count := 0;
  
  for i := 1 to 20 do
  begin
    write('请输入第', i, '个数：');
    readln(n);
    
    if n > 0 then
      positive_count := positive_count + 1
    else if n < 0 then
      negative_count := negative_count + 1;
  end;
  
  writeln('正数个数：', positive_count);
  writeln('负数个数：', negative_count);
  
  readln;
end.

代码解释：

1. 声明变量 `i`、`n`、`positive_count` 和 `negative_count`，其中 `i` 为循环计数器，`n` 为输入的数，`positive_count` 为正数个数，`negative_count` 为负数个数。

2. 初始化 `positive_count` 和 `negative_count` 为 0。

3. 使用 `for` 循环，从 1 到 20 输入 20 个数。

4. 对于每个输入的数，判断其正负，并分别累加到 `positive_count` 和 `negative_count` 变量中。

5. 循环结束后，输出正数个数和负数个数。

6. 最后等待用户输入任意键退出程序。