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.
UHJvZ3JhbSBDaGFpbmVfQWVyZWU7ClZhcgprIDogQnl0ZTsKY2ggOiBTdHJpbmc7CkJlZ2luCldyaXRlbG4gKCdTYWlzaXIgdW5lIGNoYcOubmUnKTsKUmVhZGxuIChjaCk7CmsgOj0gMDsKcmVwZWF0Cms6PWsrMjsKSW5zZXJ0ICgnICcsIGNoLCBrKTsgClVudGlsIGsgPSBsZW5ndGgoY2gpLTE7CldyaXRlbG4gKCdDaGHDrm5lIGHDqXLDqWUgPSAnLCBjaCk7CkVuZC4=