В пятизначном числе поменяйте местами цифры единиц и сотен, тысяч и десятков. ​

var N,dt,t,s,d,e:integer;

begin

 writeln('Введите число');

 readln(N);

 dt:= N div 10000;

 t:= N div 1000 mod 10;

 s:= N div 100 mod 10;

 d:= N div 10 mod 10 ;

 e:= N mod 10;

 N:= dt*10000+d*1000+e*100+t*10+s;

 print(N);

end.