Поставь чувствительность мышки (я так поняла ты о DPI, CPI(одно и то же)) на 100
Var A: array[1..15] of integer;
.........................................
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 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.
Если не ошибаюсь , по-моему , ответ 77