Ответ:

var

a, i : integer;

n : array[1..3] of integer;

begin

readln(a);

for i:=3 downto 1 do begin

n[i] := a mod 10;

a := a div 10;

end;

writeln(n[1], n[3], ' ', n[2], n[3]);

end.

Объяснение:

Сначала водим трехзначное число. Затем в цикле с помощью операции mod 10 получаем самую левую цифру и записываем в массив. Через a div 10 "отрезаем" полученную ранее цифру от исходного числа.

По прошествии цикла получаем в массиве все цифры введенного трехзначного числа. И, наконец, выводим их как требуется.