У меня программа должна менять цифры 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.
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.