program phase01b

    constants
      pi         : 3.1416;
      e          : 2.182818;
      uno        : 1;
      duo        : 2;
      message    : "bye!";

    types
      arraytype  : array [7] of int;
      recordtype : record
                   f : real;
                   g : int;
                   end;
      datatype   : record
                   p : arraytype;
                   q : recordtype;
                   r : real;
                   end;
      junktype   : array [11] of datatype;

    variables
      x          : int;
      y          : real;
      alpha      : arraytype;
      beta       : recordtype;
      gamma      : datatype;

    procedures
      f   (a : int,var b : real) : real;
      sub (var x : real,var y : real);

begin

  procedure main

      labels
        1;
        2;
        3;

      variables
        a        : int;
        b        : real;
        delta    : junktype;

  begin
  end

  procedure f

      labels
        3;
        4;

      variables
        p        : real;
        q        : int;
        r        : recordtype;

  begin
  end

  procedure sub

      labels
        3;
        4;

      variables
        f        : int;
        g        : int;
        h        : arraytype;

  begin
  end

end