Program Insert_Tab;
Const n_max = 100;
Var T : Array [1..n_max] of Char;
c : Char;
i, k, n : Integer;
Begin
Repeat
Writeln ('Donner un entier ');
Readln (n);
Until (n>=1) and (n<n_max);
Writeln ('Saisir les éléments de T') ;
For i:=1 To n Do Readln (T[i]);
Writeln ('Donner le caractère à insérer');
Readln (c);
Repeat
Writeln ('Donner la position d''insertion');
Readln (k)
Until k in [1..n];
{décalage des éléments vers droite}
For i:= n Downto k Do T[i+1] := T[i];
T[k]:=c;
For i:=1 To n+1 Do Write(T[i]:4);
End.

UHJvZ3JhbSBJbnNlcnRfVGFiOwpDb25zdCBuX21heCA9IDEwMDsKVmFyIFQgOiBBcnJheSBbMS4ubl9tYXhdIG9mIENoYXI7CmMgOiBDaGFyOwppLCBrLCBuIDogSW50ZWdlcjsKQmVnaW4KUmVwZWF0CldyaXRlbG4gKCdEb25uZXIgdW4gZW50aWVyICcpOwpSZWFkbG4gKG4pOwpVbnRpbCAobj49MSkgYW5kIChuPG5fbWF4KTsKV3JpdGVsbiAoJ1NhaXNpciBsZXMgw6lsw6ltZW50cyBkZSBUJykgOwpGb3IgaTo9MSBUbyBuIERvIFJlYWRsbiAoVFtpXSk7CldyaXRlbG4gKCdEb25uZXIgbGUgY2FyYWN0w6hyZSDDoCBpbnPDqXJlcicpOwpSZWFkbG4gKGMpOwpSZXBlYXQKV3JpdGVsbiAoJ0Rvbm5lciBsYSBwb3NpdGlvbiBkJydpbnNlcnRpb24nKTsKUmVhZGxuIChrKQpVbnRpbCBrIGluIFsxLi5uXTsKe2TDqWNhbGFnZSBkZXMgw6lsw6ltZW50cyB2ZXJzIGRyb2l0ZX0KRm9yIGk6PSBuIERvd250byBrIERvIFRbaSsxXSA6PSBUW2ldOwpUW2tdOj1jOwpGb3IgaTo9MSBUbyBuKzEgRG8gV3JpdGUoVFtpXTo0KTsKRW5kLg==