uses crt;
var s:array[1..1000] of char;
c:char;
n,i,j,k:byte;
begin
clrscr;
write('Количество символов n=');
readln(n);
writeln('Введите ',n,' символов, в том числе группы точек');
for i:=1 to n do
read(s[i]);
readln;
i:=1;
while i<=n do
if (s[i]='.')and(s[i-1]='.') then
begin
j:=i;
while(s[j]='.')and(j<=n) do
begin
for k:=j to n-1 do
s[k]:=s[k+1];
n:=n-1;
end
end
else i:=i+1;
writeln('Удаление лишних точек:');
for i:=1 to n do
write(s[i]);
readln
end.