Нужно ввести 3 значное число и поменять цифры например (345; 543)

Если в паскале то...
program n1;
var x,a,b,c,k:integer;
begin
write('x='); readln (x);
a:=x div 100;
b:=x div 10 mod 10;
c:=x mod 10;
write ('k=',b,a,c);
readln;
end.
там где write ('k=',b,a,c) здесь a,b,c меняй местами и все)