var a:integer;

begin

write ('Введите 5-значное число: ');

readln (a);

writeln ('Переворот: ',a mod 10,a mod 100 div 10,a div 100 mod 10,a div 1000 mod 10,a div 10000)

end.