program eg8;
var x:integer;
begin
  repeat
     readln(x)
  until (x >=0) and (x <=100)
end.