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

PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018Внимание! Если программа не работает, обновите версию!1. Самое простое "арифметическое" решениеbegin  var n:=Abs(ReadInteger('n=')); // защита от отрицательных чисел  Writeln(n div 100,',',(n div 10) mod 10,',',n mod 10)end.Примерn= 3183,1,82. "Арифметическое" решение с циклом, цифры в обратном порядкеbegin  var n:=Abs(ReadInteger('n=')); // защита от отрицательных чисел  while n>10 do begin    Write(n mod 10,',');    n:=n div 10    end;  Writeln(n mod 10)end.Примерn= 3188,1,33. "Арифметическое" решение с массивомbegin  var n:=Abs(ReadInteger('n=')); // защита от отрицательных чисел  var a:array[1..3] of integer;  var i:=3;  while n>0 do begin    a[i]:=n mod 10;    i-=1;    n:=n div 10    end;  Writeln(a[1],',',a[2],',',a[3])end.Примерn= 3183,1,84. Решение с символьной строкойbegin  Abs(ReadInteger('n=')).ToString.ToCharArray.Println(',')end.Примерn= 3183,1,8