Program bt; 
uses crt; 
var s1,s2:string; 
a:byte; 
BEGIN 
write('Nhap xau s1:'); readln(s1); 
write('Nhap xau s2:'); readln(s2); 
a:=POS(s1,s2); 
writeln('Vi tri cua xau s1 trong xau s2 la:',a); 
if a:=0 then writeln('Khong co xau s1 trong xau s2'); 
readln 
END.