// Effectus auto-generated Mad Pascal source code listing
program scope01Prg;

uses
  Crt, StringUtils, SySutils, CIO;

var
  strBuffer : string;
var
  eff_loop_var : byte;
  eff_cnt : byte;
  eff_string : string;
// Effectus example:
// Variable assignment and its scope
var
  key : byte;  // key_byte_array
  n1 : byte = 14;  // n1_byte_array

procedure CHANGEProc;
begin
  n1 := 10;
  eff_string := '';
  Write(n1);  // Print 2
  Writeln;
end;

procedure MAINProc;
begin
  eff_string := '';
  Write(n1);  // Print 2
  Writeln;
  CHANGEProc;
  key := Get(7);
  ReadKey;
end;

begin
  MAINProc;
end.
