{* Замены в строке 3 *}

Unit ZAMENSTR3;
Interface
Implementation
Begin
 writeln('Cимволы в первых четных позициях заменить следующим нечетным символом строки');
End.

Program zamenstr3;

Uses zamenstr3.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  S : String;
  i : integer;
Begin
  writeln('Лабораторная работа №4');
  writeln('Выполнила: Иваницкая Наталья');
  writeln('Группа: 20-103');
  writeln('Условие:');
  writeln(' символы в первых четных позициях заменить следующим нечетным символом');
  writeln(' строки');
  writeln; {* Пустая строка *}
  Write('введите строку : ');
  Readln(S);
  For i := 1 To length(S) - 1 Do {Length(s) - длина строки S}
    If (i Mod 2) = 0 Then
      S[i] := S[i + 1]; {Length(s)-1 - не считаем последний}
  Writeln(S); {элемент строки}
End.