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

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.

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.