Program Chaine_Aeree;
Var
k : Byte;
ch : String;
Begin
Writeln ('Saisir une chaîne');
Readln (ch);
k := 0;
repeat
k:=k+2;
Insert (' ', ch, k); 
Until k = length(ch)-1;
Writeln ('Chaîne aérée = ', ch);
End.