Определить число, получаемое выписыванием в обратном
порядке цифр заданного натурального числа n. Вводите
число n как значение типа integer. Например, если n = 1234,
то ответ равен 4321. Строки не исп - вопрос №1105946
var a,d,m:integer;
b:longint;
begin
write('a=');
readln(a);
m:=a;
b:=0;
while m>0 do
begin
d:=m mod 10;
m:=m div 10;
b:=b*10+d;
end;
writeln('b=',b);
readln;
end.