Выведите число, полученное при прочтении цифр данного числа справа налево.
Вводится четырехзначное число. Паскаль абс нет
Пример 1
Ввод Вывод

1234 4321

var n,m:integer;beginwrite('n = ');readln(n);m:=0;while n>0 do begin m:=m*10+n mod 10; n:=n div 10; end;writeln('m = ',m);end.Пример:n = 1234m = 4321