{$codepage UTF8} VAR a,b, aux :integer; BEGIN a:=34; b:=19; Writeln('a=',a); Writeln('b=',b); aux:=b; b:=a; a:=aux; Writeln('a=',a); Writeln('b=',b) END.