2.2 过程和函数定义

在 Oberon 中，过程（Procedure）和函数（Function）的定义与 Pascal 非常相似。下面是一个简单的过程和函数的定义示例：

PROCEDURE PrintHelloWorld;
BEGIN
  WriteLn('Hello, world!');
END;

FUNCTION Add(a, b: INTEGER): INTEGER;
VAR
  c: INTEGER;
BEGIN
  c := a + b;
  RETURN c;
END;

首先，我们定义了一个过程 `PrintHelloWorld`，它不接受任何参数，也不返回任何值。在过程体中，我们使用 `WriteLn` 函数打印了一条简单的消息。

接下来，我们定义了一个函数 `Add`，它接受两个整数作为参数，并返回它们的和。在函数体中，我们将参数相加，并将结果赋值给变量 `c`。最后，我们使用 `RETURN` 关键字返回变量 `c` 的值。

需要注意的是，在 Oberon 中，过程和函数的实现需要放在过程或函数的定义中，并以 `BEGIN` 和 `END` 包裹。此外，所有的语句必须以分号结束。

使用过程和函数，可以将代码逻辑划分成小而简单的单元，从而提高代码的可读性和可维护性。