Program Copie_ch;
Var
ch1, chr : String;
i, p, n, l : Integer;
Begin
Write ('ch1 = ');
Readln (ch1);
l:=Length (ch1);
Repeat
Write ('Position = ');
Readln (p);
Write ('Nbre caractères = ');
Readln (n);
Until (p in [1..l]) and (n in [1..l]) and (p+n<=l+1);
chr:='';
For i:=p To p+n-1 Do chr:=chr+ch1 [i];
Writeln ('La chaîne copiée est : ', chr);
End.
UHJvZ3JhbSBDb3BpZV9jaDsKVmFyCmNoMSwgY2hyIDogU3RyaW5nOwppLCBwLCBuLCBsIDogSW50ZWdlcjsKQmVnaW4KV3JpdGUgKCdjaDEgPSAnKTsKUmVhZGxuIChjaDEpOwpsOj1MZW5ndGggKGNoMSk7ClJlcGVhdApXcml0ZSAoJ1Bvc2l0aW9uID0gJyk7ClJlYWRsbiAocCk7CldyaXRlICgnTmJyZSBjYXJhY3TDqHJlcyA9ICcpOwpSZWFkbG4gKG4pOwpVbnRpbCAocCBpbiBbMS4ubF0pIGFuZCAobiBpbiBbMS4ubF0pIGFuZCAocCtuPD1sKzEpOwpjaHI6PScnOwpGb3IgaTo9cCBUbyBwK24tMSBEbyBjaHI6PWNocitjaDEgW2ldOwpXcml0ZWxuICgnTGEgY2hhw65uZSBjb3Bpw6llIGVzdCA6ICcsIGNocik7CkVuZC4=