Var a,b,c,x:integer;
begin
readln(a);
b:=a div 100;
c:=a div 10 mod 10;
x:=a mod 10;
writeln(c,x,b);
end.

Во-первых, примем ограничение: число должно быть натуральным. т.е. целым и положительным без записи знака.
Во-вторых, возможны два принципиально разных алгоритма.
Первый алгоритм предполагает, что число помещается оператором ввода в целочисленную переменную и тогда мы получаем первую цифру, как результат целочисленного деления на 10, третью - как остаток от целочисленного деления на 100, а вторую - как остаток от деления на 10 результата целочисленного деления на 10.
Второй алгоритм предполагает работу с символьным изображением числа, т.е. после ввода получается символьная строка длиной три. Первый (левый) символ будет первой цифрой числа и так далее.
Ниже приводятся тексты программ на языке Pascal, реализующие эти алгоритмы.
**********************************
var
  n:integer;
begin
  Write('Введите целое трехзначное число без знака: '); Readln(n);
  Writeln(n mod 10,(n div 10) mod 10,n div 100)
end.

Тестовое решение:
Введите целое трехзначное число без знака: 123
321

**********************************
var
  n:string;
begin
  Write('Введите целое трехзначное число без знака: '); Readln(n);
  Writeln(n[3],n[2],n[1])
end.

Тестовое решение:
Введите целое трехзначное число без знака: 123
321