// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Replace('.',',');
Writeln(s)
end.
Пример
> Один. два. три и четыре. Пять. Шесть!
Один, два, три и четыре, Пять, Шесть!