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