
 Writeln('The rect was ', r1.width : 2, ' x ', r1.height : 2);
 r1.setWidth(56);
 Writeln('The rect is now ', r1.width : 2, ' x ', r1.height : 2);

end.
</pre>

<h3>Creating a unit</h3>

<p>To include the unit in another project, add <code>uses ExampleUnit</code> right after <code>program Example</code>, the procedures declared in the <code>interface</code> will become available.</p>

<pre>
unit ExampleUnit;

interface

 procedure DrawLine (x1, y1, x2, y2: INTEGER);

implementation

 procedure DrawLine (x1