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

program zz1;

var n, i, k:integer; / / задаем переменные целого типа

begin

write ('введите заданное трехзначное число '); / / вводим заданное трехзначное число с клавиатуры

read (n);

i:=1; / / задаем начальное значение для количества цифр

while n>0 do / / организуем цикл, пока в заданном числе цифры не закончатся

begin

k:=n mod 10; / / находим последнюю цифру

n:=n div 10; / / отбрасываем ее

writeln (i,'-ая цифра заданного трехзначного числа = ', k); / / выводим ответ

i:=i+1; / / увеличиваем количество цифр

end;

end.