local x;

repeat
  local n = read ();
  x := n
until n > 0;

write (x)