Ввести целое число и "перевернуть" его, так чтобы первая цифра стала последней и т. д. в программе КуМиР

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

Алг перевертыш:

нач

цел а, а1, b, i, k

ввод a

k:=0

b:=a

a1:=0

нц пока a>0

i:=mod (a, 10)

k:=k+1

a:=div (a, 10)

кц

нц пока b>0

a1:=a1+mod (b, 10) * 10* * (k-1);

b:=div (b, 10);

K:=k-1

кц

вывод "новое число = ", a1

кон