Получить случайное трехзначное число и вывести через запятую все его отдельные цифры. Сделать для программы Паскаль! с помощью функций div и mod

program zz1;

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

begin

n:=random (1000) + 100; / / получаем случайное трехзначное число

s:=100; / / задаем начальное значение для параметра деления

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

begin

k:=n div s; / / получаем первую цифру трехзначного числа

write (k, ', '); / / выводим ее на экран через запятую

n:=n mod s; / / отбрасываем первую цифру трехзначного числа

s: = s div 10; / / изменяем параметр деления

end;

end.