program demtu;
var 
  f: text;
  s: string;
  count, i: integer;
begin
  // Mở tệp DEMXAU.INP để đọc dữ liệu
  assign(f, 'DEMXAU.INP');
  reset(f);
  
  // Đọc xâu từ tệp
  readln(f, s);
  
  // Đóng tệp sau khi đọc xong
  close(f);
  
  // Khởi tạo số từ đếm được là 0
  count := 0;
  
  // Duyệt qua các ký tự trong xâu
  for i := 1 to length(s) do
  begin
    // Nếu gặp ký tự khoảng trắng hoặc tab
    if (s[i] = ' ') or (s[i] = #9) then
    begin
      // Tăng số từ đếm được lên 1
      count := count + 1;
      
      // Bỏ qua các ký tự khoảng trắng hoặc tab liền nhau
      while (s[i] = ' ') or (s[i] = #9) do
      begin
        i := i + 1;
      end;
    end;
  end;
  
  // Kiểm tra xem có từ cuối cùng trong xâu hay không
  if s[length(s)] <> ' ' then
  begin
    count := count + 1;
  end;
  
  // Mở tệp DEMXAU.OUT để ghi kết quả
  assign(f, 'DEMXAU.OUT');
  rewrite(f);
  
  // Ghi số từ đếm được vào tệp
  writeln(f, count);
  
  // Đóng tệp sau khi ghi xong
  close(f);
end.