Составить программу для задачи: Ввести трехзначное число, и вывести через запятую его отдельные цифры.Pascal

Предыдущий
вопрос Следующий
вопрос

program SeparateDigits;

va
number, digit1, digit2, digit3: integer;

begi
write('Enter a three-digit number: ')
readln(number);

digit1 := number div 100
digit2 := (number div 10) mod 10
digit3 := number mod 10;

writeln('Separate digits of the number are: ', digit1, ', ', digit2, ', ', digit3)
end.