решите на pascalabc или phyton дано натуральное число. требуется разделить запятыми тройки его цифр(считая справа). входные данные содержат натуральное число, не превосходящее 10 в 100 выходные данные. то же число, разделяя тройки цифр запятыми. примеры: входные выходные 1000 1,000 12345 12,345

Var n: integer;
 s: string;
begin
  write('Введите строку символов ');
  readln(s);
  n:=Length(s);
  for var i:= 1 to ((n-1) div 3) do
   insert(',',s,n-3*i+1);
  writeln(s);
end.

АБС паскаль.
типа данных для 100 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.