local x;

do
  local n = read ();
  x := n
while n <= 0 od;

write (x)