Решение задачи String 47

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    string s;
    getline(cin, s);
    for(int i = 1; i < s.size(); i += 2){
        s.insert(i, 1, '.');
    }
    cout << s << endl;
    return 0;
}

program String47;
var
 S:String;
 i:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  While (i<=Length(S)) do
   begin
    if (S[i]=' ') and (S[i-1]='.') then
     begin
      Delete(S,i,1);
      dec(i);
     end;
    if (S[i]=' ') and (S[i-1]<>'.') then S[i]:='.';
    inc(i);
   end;
  Writeln(S);
end.