Вопрос Помогите с программой на паскале!

[lFr0stl]

У меня программа должна менять цифры 4 значного числа местами. Например 1234 выведет 4321, но программа выводит не 4321 а 4264.Вот программа.
var a,g,k,m,n,b:integer;
begin
writeln('введите a');
readln(a);
b:= a mod 10;
n:= (a mod 10)div 100;
k:= (a mod 100)div 10;
m:= a mod 1000;
g:=(b*1000)+(n*100)+(k*10)+(m*1);
writeln(g);
end.

 

[IGGO]

Добры вечер юрий, я думаю данный ответ подойдет vk. cc/6osUaT (удалите пропуск)

 

[Саске 2]

n:= (a mod 10)div 100; ты берёшь остаток от деления на 10, сиречь последнюю цифру, и делишь его на 100, закономерно получая 0 вне зависимости от вводимого числа на этом можно остановиться и смело заявить, что работать с этими двумя операциями ты не умеешь практикуйся

 

[hfhhdfgf]