Question i need help in a simple pascal program

Jun 18, 2020
1
0
10
Program Bulletin ;
Uses Wincrt ;
Var moy : integer ;
Begin
Write ('marks : ') ; Readln (moy) ;
if 18 <moy then writeln ('Excellent')
else if 16 < moy < 18 then writeln ('very good');
else if 14 < moy < 16 then writeln ('good');
else if 12 < moy < 14 then writeln ('above average')
else if 0 < moy < 12 then writeln ('Passable')
else writeln (' F')
end.

Incompatible types: got boolean expeted longint