Язык программирования 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.