Что напечатает программа program first; var x: integer; procedure change; var x: integer; begin x: =1; end; begin x: =0; change; write(x); end/

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

Программа напечатает: 0