Program Pos_ch;
Var ch1, ch2 : String;
i, p : Integer;
Begin
Write ('ch1 = ');
Readln (ch1);
Write ('ch2 = ');
Readln (ch2);
i:=1 ;
p:=0;
Repeat
If ch1 = COPY (ch2, i, Length (ch1)) Then p:=i;
i:=i+1;
Until (Length (ch2)-i < Length (ch1)) Or (p<>0);
Writeln ('La chaîne ', ch1, ' occupe la position ', p,' dans la chaîne ', ch2);
End.