Program Integer12;
var x,a,b,c,p:integer;
begin
Writeln('Введите число a');
readln(x);
a:=x div 100;
b:=(x div 10) mod 10;
c:=x mod 10;
p:=c*100+b*10+a;
Writeln ('Перестановленное местами =',p);
end.