x:=0; if x then write(1) else write(2) fi