var
s,c:string;
dl,i,n,z,k:integer;
begin
n:=0;
k:=1;
writeln ('введите строку');
readln (s);
dl:=length(s);
i:=1;
while i<=dl do begin
if s[i]=' ' then begin
inc(k);
c:=copy(s,1,i-1);
while  s[i+1]=' ' do delete (s,i+1,i+1);
delete (s,1,i);
dl:=length(s);
i:=0;
z:=length(c);
if z>=3 then begin
c:=copy(c,z-2,z);
if (c='000') or (c='101') then inc(n);
end;
end;
inc(i);
if i=dl then begin
c:=copy(s,1,i);
z:=length(c);
c:=copy(c,z-2,z);
if (c='000') or (c='101') then inc(n);
end;
end;
writeln ('Всего количество слов ',k);
writeln ('Количество слов кратных 5 ',n);
readln
end.