Операция <= не может быть применина к boolean и integer - PascalABC.NET

Program Olymp;
const c = 2; 
var res: real; b,i:integer; a :int64;
BEGIN
read(a);
//в степень
if a >= 0 or a <= 10000000000 then
     begin
b := 1;
while i < a do begin
        b := b * c;
        i := i + 1;
    end;
    res := b mod 10;
   writeln(res);    
   end;
END.