Ответ:

program IsNumInRange0to100;
var
   flag : Boolean;
   x : Integer;
begin
   readln(x);
   if (x > 0) and (x <= 100) then
       flag := true
   else
       flag := false;
   writeln(flag);
end.