Спо программированию. в заданном тесте подсчитать количество четырехбуквенных слов и каждое четное из них заменить на сочетание "". слова отделены друг от друга пробелом.

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString('->').ToWords;
  var k:=0;
  for var i:=0 to a.Length-1 do
    if a[i].Length=4 then begin
      k+=1;
      if k.IsEven then a[i]:=''
      end;
  Writeln('Четырехбуквенных слов: ',k);
  var s:=a.JoinIntoString(' ');
  Writeln(s)
end.

Пример
-> Мама мыла раму Тамара ела кашу а Даша играла в мяч
Четырехбуквенных слов: 5
Мама раму Тамара ела а Даша играла в мяч