nhập vào 1 xâu . Đưa ra số từ của xâu ( xâu nhập là xâu chuẩn hoá )

var s: string;

    d, i: byte;

Begin

    Write(‘nhap xau: ‘); readln(s);

    d:=1;

    For i:=1 to length(s) do 

        If s[i]=’ ‘ then inc(d);

    Write(‘so tu trong xau: ‘, d);

    Readln

End.