var a,b,c,d,e:longint; begin read(a); b:=a mod 10; c:=a div 10 mod 10; d:=a div 100; e:=b*100000+c*10000+d*1000+a; write(e); end. /************************************************************** Problem: 1620 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/