var 
  x : integer;
procedure p1;
  var
    x : integer;
  begin
    x := 31
  end;
procedure p2;
  var
    x : integer;
  begin
    x := 73
    writeln(x);
    p1
  end;
begin
  x := 7;
  writeln(x);
  p2;
  writeln(x);
end.