program lx2 Var a,b,c:integer; Begin read(a,b); c:=a; a:=b;