Ответ:

program dich;

var n,x,s,a,b,c: integer;

begin

 writeln('Введите ваше трёхзначное число:');

 readln (n);

 x:=n;

 while (n>0) do

   begin

     n:=n div 10;

     s:=s+1;

   end;

 if s=3 then

   begin

     a:=x div 100;

     b:=(x div 10) mod 10;

     c:=x mod 10;

     writeln (a,',',b,',',c);

   end;

end.

Объяснение:

Программа написана на Pascal.