input kalimat



isAnyWord <- F 

jml <- 0

for a <- 1 to Length(kalimat), a++

{

 if kalimat[a] != ' ' then isAnyWord <- T //jika bukan spasi

 if kalimat[a] = ' ' then //jika ketemu spasi

 {

 if isAnyWord = T then //jika sebelumnya ada suatu kata, maka jml++

 { 

 jml++

 isAnyWord = F

 } 

 }

}