Дано предложение. Определить число пробелов в нем

var
  s: string;
  i, k: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do if s[i] = ' ' then inc(k);
  writeln(k);
end.

var
  s: string;
  i: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do if i mod 2 = 0 then s[i] := 'ы';
  writeln(s);
end.

var
  s, a: string;
  i, sum, k, code: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] <> ' ' then a := a + s[i];
    if (s[i] = ' ') or (i = length(s)) then
    begin
      k := 0;
      val(a, k, code);
      inc(sum, k);
      a := '';
    end;
  end;
  writeln(sum);
end.

var
  s, a: string;
  i, min, max, k: integer;
 
begin
  readln(s);
  for i := 1 to length(s) do
  begin
    if s[i] <> ' ' then a := a + s[i];
    if (s[i] = ' ') or (i = length(s)) then
    begin
      k := length(a);
      if (min = 0) and (max = 0) then begin max := k; min := k; end;
      if min > k then min := k;
      if max < k then max := k;
      a := '';
    end;
  end;
  writeln('Max=', max, '; Min=', min);
end.