Строки. Паскаль

[QIWI]

Строки. Паскаль

Помогите решить задачу. Условие: Ввести строку и преобразовать её таким образом, чтобы перед каждым символом стояло 3 символа - . Вывести строку

 

[Vladimir_S]

Не понял - какие три символа?

 

[Vladimir_S]

Ну что же, раз Вы изволили удрать, не ответив на вопрос, то уж не взыщите - как понял:

Var
 S1,S2,S0:String;
 i:Byte;
Begin
 S0:='---';
 Repeat
  Writeln('Enter the string:');
  Readln(S1);
  If Length(S1)>63 then Writeln('Too long! Try another.');
 Until Length(S1)<64;
 S2:='';
 For i:=1 to Length(S1) do
  S2:=S2+S0+S1[i];
 Writeln(S2);
 Readln
End.

 

[QIWI]

Спасибо большое!