{$codepage UTF8} VAR Cad1,Cad2,cadAux : string; BEGIN Write('Cad1 :'); Readln(Cad1); Write('Cad2 :'); Readln(Cad2); Writeln('Cad1=',Cad1); Writeln('Cad2=',Cad2); cadAux:=Cad2; Cad2:=Cad1; Cad1:=cadAux; Writeln('Cad1=',Cad1); Writeln('Cad2=',Cad2) END.