{* Задача 116 *}

Unit ZADACH116;
Interface
Implementation
Begin
 writeln('Дан текст. Установить пробелы вместо символов, номера позиций которых при делении на 4 дают в остатке 3 ');
End.

Program pas13530;

Uses zadach116.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a : String;
  i : integer;
  l : integer;
Begin
  clrscr; {* Очистка экрана *}
  write('введите текст: ');
  readln(a);
  l := length(a);
  If a = '' Then
    halt;
  For i := 1 To l Do {* Переменная i увеличивается с 1 до l *}
    If i Mod 4 = 3 Then
      a[i] := ' ';
  write('Итог: ', a);
  readln; {* Приостановка программы. Ожидание Enter *}
End.