sample.pas

   1 Var x : Integer;
   2 Var y: Integer;
   3
   4 Procedure teste (a : Integer);
   5 Var i : Integer;
   6 Begin
   7     printInt(666);
   8     println();
   9 End;
  10
  11 Begin
  12   x := 10;
  13   x := 7 - 1;
  14   printInt(11);
  15   println();
  16   printInt(22);
  17 End.