const
 mask=127;
var
 a[i]:array[1..8] of extended;
 e:integer;
...
...
e:=(a[i] and mask)/128;  { <--  Чему будет равно e?}
...

Что будет возвращаться в скобках (a[i] and mask) ?

Ничего не будет... Это просто не будет скомпилировано. Нельзя присваивать

Integer <- Extended

Эти типы несовместимы по присваиванию...

...прошу прощения.... через пару часов выложу правильный код

const
 mask = 127;
type
 byte_array = array[0..9] of byte;
var
 x,y:extended;
 b:byte_array;
 e:integer;
 ...
begin
 readln(x);
 b:=byte_array(x);
 ...
 e:=256*(b[9] and mask) + b[8]; {Что возвращаеться в скобках ?? (false,true,integer...)}
 ...

Вот...

byte вернется.