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