program oken; uses crt; var s: string; i,dem: integer; begin clrscr; write('Nhap 1 xau bat ky: '); readln(s); for i:=1 to length(s) do if s[i]=' ' then dem:=dem+1; writeln('So ky tu trang co trong xau: ',dem); readln; end.
uses crt; var st : string; d,i : integer; begin write('Nhau xau :'); readln(st); for i:=1 to length(st) do if st[i]=#32 then d:=d+1; write(d); readln end.