Дано натуральное число А. Вывести число, полученное из А путем прочтения его цифр справа налево. Например, 12345 - > 54321.

program zz1;

var a, k, s:integer; / / задаем переменные целого типа

begin

write (' введите заданное число '); / / вводим число с клавиатуры

read (k);

a:=k mod 10; k:=k div 10; / / получаем первую цифру перевертыша

while k0 do / / организуем цикл, пока в числе есть цифры и переворачиваем число

begin

s:=k mod 10; / / получаем последнюю цифру

k:=k div 10; / / отбрасываем ее из числа

a:=a * 10 + s; / / формируем новое число

end;

writeln (' полученное перевернутое число = ', a); / / выводим ответ

end.