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