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.
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.