<pre>
<strong>function</strong> maximum(a:integer, b:integer)
<strong>begin</strong>
<strong>if</strong> (a > b)
maximum := a;
<strong>else</strong>
maximum := b;
<strong>end</strong>;
</pre>
Listing 6.18. Funkcja maximum() w Pascalu
Rozdział 6. Podstawowe elementy XHTML