// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var s:=ReadlnString('>');
Println(Regex.Replace(s,'(.)\1+','...'))
end.
<u><em>Тестовое решение:</em></u>
> *** 244800+10000=254800 тестовый пример *****
... 2...8...+1...=2548... тестовый пример ...
Var a,b,c:real;s,v:real;beginreadln(a,b,c);v:=a*b*c;s:=2*(a*b+a*c+b*c);writeln(v);writeln(s);end.<span>
</span>
Рене Декарт так его звали