uses crt; var s1,s2:string; i:byte; begin clrscr; write('Nhap xau s1: '); readln(s1); write('Nhap xau s2: '); readln(s2); writeln; i:=pos(s1,s2); if i=0 then write('s1 khong xuat hien trong s2') else write('Vi tri xuat hien dau tien cua s1 trong s2 la: ',i); readln end.
uses crt; var s1,s2 : string; i : integer; begin clrscr; write('Nhap xau 1 :'); readln(s1); write('Nhap xau 2 :'); readln(s2); for i:=1 to length(s2) do if s1[1] = s2[i] then write('Vi tri xuat hien dau tien trong xau s2 la :',i) ; readln end.
