Viết chương trình nhập vào hai xâu. Xem xâu thứ 2 có trong xâu thứ nhất hay không? Gấp lắm các bro ơi!!

program kiem_tra;

uses crt;

var s1,s2:string;

begin

       clrscr;

       write(‘Nhap xau thu nhat: ‘);  readln(s1);

       write(‘Nhap xau thu hai: ‘);  readln(s2);

       if pos(s2,s1)<>0 then write(‘Co’)

              else write(‘Khong’);

       readln;

end.