uses crt; var f:text; i,d:longint; s1,s2:string; begin clrscr; readln(s1); readln(s2); while pos(s1,s2)<>0 do begin i:=pos(s1,s2); inc(d); delete(s2,i,length(s1)); end; writeln(i+d*length(s1)-1); readln; end.
uses crt; var s1,s2,tam1,tam2:string; i:byte; begin clrscr; write('Nhap xau s1: '); readln(s1); write('Nhap xau s2: '); readln(s2); for i:=length(s1) downto 1 do tam1:=tam1+s1[i]; for i:=length(s2) downto 1 do tam2:=tam2+s2[i]; write('Vi tri xuat hien cuoi cung cua s1 trong s2 la: ',length(s2)-(pos(tam1,tam2)+length(s1)-2)); readln end.