Дано натуральное число. Требуется разделить запятыми тройки его цифр (считая справа). Вводится одно натуральное число, не превышающее 10^100. Вывести то же число, разделяя тройки цифр запятыми.

Var s: string;

i: integer;

begin

write ('число: '); readln (s);

i:=length (s) - 2;

repeat

insert (',', s, i);

i:=i-3;

until i<3;

writeln ('новое число: ', s);

end.

число: 123456789654321987

новое число: 123,456,789,654,321,987