mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-02 13:32:49 +02:00
22 lines
205 B
ObjectPascal
22 lines
205 B
ObjectPascal
unit unit1;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
implementation
|
|
|
|
{$IFDEF procedurebegin}
|
|
{$I procedurebegin1.inc}
|
|
{$ENDIF}
|
|
|
|
{$IFDEF whilebegin}
|
|
{$I whilebegin1.inc}
|
|
{$ENDIF}
|
|
|
|
end.
|
|
|