program m1;var a, b: integer;begin a:=1; b:=2; b:=b xor a; a:=b xor a; b:=b xor a; writeln('a=',a ... Читать дальше »