Nhập từ bàn phím xâu s1 và xâu s2,đưa ra màn hình số lần xuất hiện của xâu s1 trong xâu s2.

program xuat_hien;

uses crt;

var s1,s2:string;

      d:byte;

begin

     clrscr;

     write(‘Xau s1 la: ‘);   readln(s1);

     write(‘Xau s2 la: ‘);    readln(s2);

     d:=0;

     while pos(s1,s2)<>0 do

          begin

               insert(chr(1),s2,pos(s1,s2));

               d:=d+1;

               delete(s2,pos(s1,s2),length(s1));

          end;

     write(‘So lan xuat hien la: ‘,d);

     readln;

end.