program zadacha1;
{
var a:string;
    i, v:byte;

begin
    writeln('Vvedite str');
    readln(a);
    for i:= 1 to length(a) do
    begin
        if a[i] = ' ' then
            begin
                v:= v + 1;
                a[i]:= 's';
            end;
    end;

    writeln('Kol-vo probelov:', v);
    writeln(a);
end.}
{
var a:string;

begin
    writeln('Vvedite str');
    readln(a);
    while (pos(' ', a) <> 0) do
        begin
           delete(a, pos(' ',a), 1);
        end;
    writeln(a);
end.}
{
var a:string;
begin
    writeln('Vvedite str');
    readln(a);
    while (pos(',', a) <> 0) do
        begin
           delete(a, pos(',',a), 1);
        end;

    while (pos('-', a) <> 0) do
        begin
           delete(a, pos('-',a), 1);
        end;
    writeln(a);
end.}
{
var a, t:string;
    m, k, v:integer;
    i:byte;

begin
    writeln('Vvedite str');
    readln(a);

    for i:= 1 to length(a) do
    begin
        t:= a[i];
        val(t, v, m);
        if m = 0 then
           k:=k + v
        else
            writeln('Oshibka! Nevozmozhno preobrazovat ', t);
    end;
    writeln(k);
end.}

var a:string;
    i, v:byte;

begin
    writeln('Vvedite str');
    readln(a);
    v:= 1;
    for i:= 1 to length(a) do
    begin
        if a[i] = ' ' then
            begin
                v:= v + 1;
            end;
    end;

    writeln('Kol-vo slov:', v);
end.