Viết chương trình nhập vào hai xâu S1, S2, trong đó S2 là từ, hãy in ra màn hình số lượng từ trong S1 và kiểm tra trong xâu S2 có chứa từ nào trong S1 không, nếu có nhiều từ thì chỉ cần in ra một lần duy nhất.

uses crt;
var s1,s2:string; i,n:longint; a:array[1..1000]of string; kt:boolean;
begin
clrscr;
   write('Nhap xau S1: ');readln(s1);
   write('Nhap xau S2: ');readln(s2);
   s1:=' '+s1+' ';
   for i:=1 to length(s1)-1 Do
      if (s1[i]=' ')and(s1[i+1]<>' ') then inc(n) else
      if s1[i]<>' ' then a[n]:=a[n]+s1[i];
   writeln('S1 co ',n,' tu');
   kt:=false;
   for i:=1 to n do
      if a[i]=s2 then kt:=true;
   if kt then writeln('S2 Co xuat hien trong xau S1, do la tu "',s2,'"') else
   writeln('S2 Khong xuat hien trong xau S1');
readln
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}
`@`$\texttt{Python: }$

s1 = input().split()
s2 = input()
print(f"S1 co {len(s1)} tu")
if s1.count(s2) :
    print(f"S2 co xuat hien trong xau S1, do la tu {s2}")
else :
    print("S2 Khong xuat hien trong xau S1")