在一片郁郁葱葱的果园里，农民们正忙碌着摘苹果。果园里种满了各式各样的苹果树，每棵树上都挂满了成熟的红苹果和绿苹果。今天，我们的任务是编写一个程序来帮助农民们计算他们能摘到多少个苹果。

假设有一个果园，里面有N棵苹果树，每棵树上有一定数量的苹果。现在需要编写一个程序，输入每棵树上的苹果数量，然后计算总共能摘到多少个苹果。这个问题可以用Pascal语言来解决，让我们一起动手写代码吧！🛠️💻

下面是一个简单的Pascal代码示例，用于解决这个问题：

```pascal

program ApplePicker;

var

n, i, totalApples: integer;

applesPerTree: array[1..100] of integer;

begin

readln(n);

for i := 1 to n do

readln(applesPerTree[i]);

totalApples := 0;

for i := 1 to n do

totalApples := totalApples + applesPerTree[i];

writeln(totalApples);

end.

```

通过这个程序，我们可以轻松地计算出果园中所有苹果树上的苹果总数。希望这个小例子能够帮助大家理解如何用Pascal语言解决实际问题！💡📝

编程学习 Pascal 摘苹果挑战