PROGRAM main
    VAR %% can be empty or completely missing
    ENDVAR

  FUNCTION foo(x : INTEGER): INTEGER;
    BEGIN
    foo := x * x - 3;
    END
  BEGIN    
    BEGIN
      VAR
        w, x, z: INTEGER;
      ENDVAR
      x := foo(4);
      WRITE(x);
      WRITELN();
    END
  END