| ouniss a écrit : 
 
 program ouniss;
uses wincrt;
 var
 ch,h:string;
 pos,l:integer;
 procedure saisir(var pos :integer; var l:integer;var ch:string);
 begin
 writeln('donner la chaine CH =');
 read(ch);
 writeln('donner le position de coupure POS =');
 read(pos);
 writeln('donner le nombre de caractere on doit coupe L =');
 read(l);
 end;
 procedure coupe ( var ch :string; pos,l:integer);
 begin
 delete(ch,pos,l);
 end;
 procedure affiche (var ch:string );
 begin
 writeln('la chaine devient comme ca =',ch);
 end;
 BEGIN
 saisir(pos,l,ch);
 coupe(ch,pos,l);
 affiche(ch);
 END.
 
 
 |