{
  Задача: Ввести фамилию, имя, отчество как одно данное строкового типа.
  Вывести самое короткое слово;
}
Program z18;
  Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;
Begin
  write('Введите строку - '); readln(s);
  l:=s.Length;
  i:= 1;
  j:= 1;
  
  while i <= l do
  begin
    while (s[i] <> ' ') and (i <= l) do
    begin
      a[j]:=a[j] + s[i];
      i:= i + 1;
      if (i > l) then break;
    end;
    j:= j + 1;
    i:= i + 1;
  end;
  
  i:= 2;
  min:=a[1].Length;
  while (a[i] <> '') do
  begin
    l:=a[i].Length;
    if (l < min) then h:= i;
    i:= i + 1;
  end;
  writeln(a[h]);
End.