{* Задача 232 *}

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

Program zadach232;

Uses zadach232.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.