Если в последней строке программы исправить ошибку и заменить / на точку, то программа выведет 0.
В самом деле, процедура Change присваивает переменной х значение 1, но переменной х, описанной в теле процедуры. Поэтому одноименная переменная х, описанная перед процедурой, в теле процедуры будет не видна и процедура не сможет изменить её значения. Будет выведено значение 0, которое присвоено в программе оператором Х:=0;