Program A;
var
c:char;
s:integer;
begin
s:=0;
while not eoln do //пока не конец строки
read(c);
if c=' ' then
s:=s+1;
end;
write(s+1);
end.
Program A;
var
c:char;
s:integer;
begin
s:=0;
while not eoln do //пока не конец строки
begin
read(c);
if c=' ' then
s:=s+1;
end;
write(s+1);
end.