program phase02ba

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

    variables
      x          : int;
      y          : real;

begin

  procedure main

      labels
        1;
        2;

      variables
        a        : int;
        b        : real;

  begin
    write (e);
    writeln ();
    write (duo);
    writeln ();
    write (message);
    writeln ();
    read (x);
    write (x);
    writeln ();
    read (a);
    write (a);
    writeln ();
    writeln ();
    read (y);
    readln ();
    read (b);
    write (y);
    write (b);
    writeln ();
    y := pi;
    write (y);
    writeln ();
    a := y;
    write (a);
    writeln ();
    b := a;
    write (b);
    writeln ();
  end

end