program A;
  
  procedure A1;
  var x;
  begin
    write(x)
  end;

  procedure A2;
  begin
    write(x)    
  end

begin
  call A1();
  call A2()
end