PROGRAM main
  FUNCTION foo(x : INTEGER): INTEGER;
    BEGIN
    foo := x * x - 3;
    END
  BEGIN
    VAR %% can be empty or completely missing
    ENDVAR
    
    BEGIN
      VAR
        w, x, z: INTEGER;
      ENDVAR
      x := foo(4);
      WRITE(x);
      WRITELN();
    END
  END