begin
  var x := ReadInteger;
  if x.ToString.Length = 4 then
    Writeln(true)
  else Writeln(false);
end.