Что напечатает программа

Program first;
Var
X:integer;
Procedure change;
Var X:integer;
Begin
X:=1;
End;
Begin
X:=0;
Change;
Write(x);
End/