Найти все цифры в записи целого трёхзначного числа

Program cifry;
Var a,x1,x2,x3:integer;

Begin
Write('введите трехзначное число');
Readln(a);
X1:=a div 100;
X2:=(a div 10) mod 10;
X3:= a mod 10;
Writeln('цифра сотен числа ', а,' равна ',x1);
Writeln('цифра десятков числа ', а,' равна ',x2);
Writeln('цифра единиц числа ', а,' равна ',x3);
Readln;
End.

mod - берет остаток от деления

div - берет целое число от деления(отбрасывает остаток)

По этим функциям можно найти все цифры любого числа. Вот программа которая находит из  трёхзначного.

Var a,b,c,z:integer;
Begin
Readln(z);
a:=z mod 10;
b:=(z mod 100) div 10;
c:= a div 100;
Writeln(a, ' ', b, ' ', c, ' ');
End.