Напишите программу, которая вводит трехзначное число и разбивает его на цифры. Пример: при вводе числа 123 программа должна вывести "1, 2, 3"

program zz1;

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

begin

write (' введите трехзначное число ');

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

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

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

begin

k:=n div s; / / получаем первую цифру

write (k, ' '); / / выводим ее на экран через пробел

n:=n mod s; / / отбрасываем ее

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

end;

end.