sample.pas

   1 Var x : Integer;
   2 Var a, b, c: Integer;
   3
   4 Procedure myproc (procint: Integer, procbool : Boolean);
   5 Var i : Integer;
   6 Begin
   7   i := 3;
   8 End;
   9
  10 Function myfunc (funcint : Integer, funcbool : Boolean) : Integer;
  11 Var myvar : Boolean;
  12 Begin
  13   myfunc := 15 + 16 * 9;
  14 End;
  15
  16 Begin
  17   x := y;
  18   x := 3;
  19 End.
  20