// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ReadlnString('Введите строку:');
a:=RegEx.Replace(a,'\.{2,}','...'); Writeln(a);
end.
Тестовое решение:
Введите строку: 34234...23422.......23424.23423..23424234.......234234..... .....234242.........
34234...23422...23424.23423...23424234...234234... ...234242...