program LosingEqSign; var a; begin a 1 end