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

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018
Внимание! Если программка не работает, обновите версию!

1. Самое обычное "арифметическое" решение

begin
  var n:=Абс(ReadInteger('n=')); // охрана от отрицательных чисел
  Writeln(n div 100,',',(n div 10) mod 10,',',n mod 10)
end.

Пример
n= 318
3,1,8

2. "Арифметическое" решение с циклом, числа в оборотном порядке

begin
  var n:=Abs(ReadInteger('n=')); // защита от отрицательных чисел
  while ngt;10 do begin
    Write(n mod 10,',');
    n:=n div 10
    end;
  Writeln(n mod 10)
end.

Пример
n= 318
8,1,3

3. "Арифметическое" решение с массивом

begin
  var n:=Abs(ReadInteger('n=')); // защита от отрицательных чисел
  var a:array[1..3] of integer;
  var i:=3;
  while ngt;0 do begin
    a[i]:=n mod 10;
    i-=1;
    n:=n div 10
    end;
  Writeln(a[1],',',a[2],',',a[3])
end.

Пример
n= 318
3,1,8

4. Решение с символьной строкой

begin
  Абс(ReadInteger('n=')).ToString.ToCharArray.Println(',')
end.

Пример
n= 318
3,1,8