procedure Gnat.Io.N is I:Integer;begin Get(i);Put(1-I);End;