Listing 14.3. Funkcja maximum() w Pascalu
<pre>
<strong>function</strong> maximum(a:integer, b:integer)
<strong>begin</strong>
    <strong>if</strong> (a &gt; b)
        maximum := a;
    <strong>else</strong>
        maximum := b;
<strong>end</strong>;
</pre>