Var
s : string;
i : integer;
begin
readln (s);
i := 1;
while (i <= length (s)) do
begin
if (s[i] = ,) then insert ( , s, i + 1);
i := i + 1;
end;
writeln (s);
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.