Язык программирования pascal поменять местами цифры любого трехзначного числа и вывести их на экран

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('Введите трехзначное число').ToString.Inverse.ToInteger;
  Writeln('n=',n)
end.

Пример
Введите трехзначное число 436
n=634

Program wk;
var x,a,b,c:integer;
begin
Readln(x);
A:=x mod 10;
b:=x div 100;
c:=(x div 10)mod 10;
x:=a*100+b*10+c;
Writeln(x);
Writeln(a,' ',b,' ',c);
end.

№1.

дом          1         2          3            4            5
цвет- жёлтый синий красный белый зелёный
национальность- норвежец украинец англичанин испанец японец
напиток- вода чай молоко сок  кофе
сигареты-Kool Chesterfield Old-Gold Lucky Strike Parliament
животные- лиса лошадь улитки собака зебра№2

№2

Чтобы стакан мог оказаться между сосудами с чаем и молоком, он должен переместиться на место 3 (чашка на место 4),  на месте 2 он будет между минеральной водой и еще чем-нибудь.

Таким образом, он будет встанет точно в середине. Из этого можно сделать вывод, что в стакане находится кофе. Молоко из условия задачи, во-первых, рядом со стаканом, во-вторых, рядом с сосудом с квасом. Значит, в кружке находится чай, в чашке – молоко, в кувшине – квас.

Стакан перемещается на третье место, соответственно чашка на четвертое. Теперь известно, что кофе оказалось посередине, т.е. оно в стакане. Справа и слева чай и молоко. Т.е. в кружке либо чай, либо молоко и в чашке тоже. Но известно, что в бутылке минеральная вода, а по соседству с молоком - квас. В чашке - молоко, в кувшине квас, в кружке чай.
                  кофе чай молоко квас минеральная вода
     бутылка  -        -      -           -        +
     кружка            +      
     чашка                    +    
     стакан    +        -      -          -         -
     кувшин                              +