Bài 9 :
uses crt;
var S : string; C : char; i : byte;
begin
clrscr;
write('Nhap xau : '); readln(S);
C := 'N';
for i := 1 to length(S) do
if S[i] = ' ' then C := 'Y';
if C = 'Y' then write('Xau co dau cach')
else write('Xau khong co dau cach');
readln
end.