program WordLen;
var
   k, i, n, min : integer;
   a : array[1..128] of integer;
   s : string;
procedure WordLength(i, k:integer);
begin
   n := 0;
	while s[i] <> ' 'do begin
   	i := i + 1;
   	n := n + 1;
   end;
   a[k] := n;
end;
begin
   writeln('Please, enter string');
   readln(s);
	k := 0;
   i := 0;
   while i <= length(s) do begin
   	if s[i] <> ' ' then  begin
         k := k + 1;
         WordLength(i, k);
         i := i + a[k];
      end
      else i := i + 1;
   end;
   for i := 1 to 128 do begin
   	if min > a[i] then min := a[i];
   end;
   writeln(min);
	readln;
end.