Pascal/Turbo Pascal - sintaxis if

alguien me puede explicar como actua la siguiente sentencia: if mascara and 128=128.....
aclaro que mascara no es un tipo boolean. este codigo lo saque de un programa que utiliza el mapa de caracteres de la funcion 11h. y no entiendo la sintaxis de esta sentencia.
gracias por su ayuda.

128 en binario = 10000000 ocho digitos numerados por la izquierda desde cero a 7 quire decir si esta activado el bit 7 , osea si el bit siete esta puesto a 1

si bit el bit siete está activado entonces...

SALUDOS.

Diseñar un programa que verifique si un numero es primo.

Program primos;
Var
Primo:bolean;
Numero:Integer
Begin
Primo:=true;
Divisor:=2;
Writeln('introduzca un entero positivo:')
Readln(numero);
While(divisor <numero)and primo do
Begin
If numero mod divisor=o then
Primo:= false;
Divisor:=divisor +1
End.
If primo= true then
Writeln(numero,",'es primo')
Else
Writeln(numero,",'no es primo')
End."

Diseñar un programa que verifique si un numero es primo.

Program primos;
Var
Primo:bolean;
Numero:Integer
Begin
Primo:=true;
Divisor:=2;
Writeln('introduzca un entero positivo:')
Readln(numero);
While(divisor <numero)and primo do
Begin
If numero mod divisor=o then
Primo:= false;
Divisor:=divisor +1
End.
If primo= true then
Writeln(numero,",'es primo')
Else
Writeln(numero,",'no es primo')
End."

Antes que nada reciba mis más sinceros saludos.

Necesito informaciòn sobre las caracterìsticas del enunciado.

Diseñar un programa que verifique si un numero es primo.

Program primos;
Var
Primo:bolean;
Numero:Integer
Begin
Primo:=true;
Divisor:=2;
Writeln('introduzca un entero positivo:')
Readln(numero);
While(divisor <numero)and primo do
Begin
If numero mod divisor=o then
Primo:= false;
Divisor:=divisor +1
End.
If primo= true then
Writeln(numero,",'es primo')
Else
Writeln(numero,",'no es primo')
End."

Diseñar un programa que verifique si un numero es primo.

Program primos;
Var
Primo:bolean;
Numero:Integer
Begin
Primo:=true;
Divisor:=2;
Writeln('introduzca un entero positivo:')
Readln(numero);
While(divisor <numero)and primo do
Begin
If numero mod divisor=o then
Primo:= false;
Divisor:=divisor +1
End.
If primo= true then
Writeln(numero,",'es primo')
Else
Writeln(numero,",'no es primo')
End."

Diseñar un programa que verifique si un numero es primo.

Program primos;
Var
Primo:bolean;
Numero:Integer
Begin
Primo:=true;
Divisor:=2;
Writeln('introduzca un entero positivo:')
Readln(numero);
While(divisor <numero)and primo do
Begin
If numero mod divisor=o then
Primo:= false;
Divisor:=divisor +1
End.
If primo= true then
Writeln(numero,",'es primo')
Else
Writeln(numero,",'no es primo')
End."