с инфой , нужно решить тест, умоляю вас , оч надо, от

function ptcrk(a,b,x,y,r: real): integer;
var k: integer;
begin
  k:=0;  
  if abs(sqr(x-a)+sqr(y-b)-r*r)<1.0e-9 then k:=1;
  if r*r-sqr(x-a)-sqr(y-b)>1.0e-9 then k:=2;
  ptcrk:=k;
end;
// основная программа
var a,b,x,y,r,k: real;
begin
  write('координаты центра a b: ');  readln(a,b);
  write('координаты точки x y: ');  readln(x,y);
  write('радиус: ');  readln(r);
  k:=ptcrk(a,b,x,y,r);
  if k=1 then writeln('точка на окружности');
  if k=2 then writeln('точка внутри круга');
  if k=0 then writeln('точка вне круга');
end.

координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2.1
точка внутри круга

координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2
точка на окружности

Если нам надо хранить и положительные и отрицательные значения в 1 байте, то старший бит будет отведён под знак (+ или -) а на само число останется только 7 бит.  

поэтому значения (х) которые можно записать в 7 бит со знаком будут в диапазоне

-128 ≤ x ≤ +127

16 (Dec) = 0001 000 (Bin)

32 (Dec) = ‭0010 0000‬ (Bin)

-25 (Dec) = ‭1‭110 0111‬‬ (Bin)

максимальное положительное значение 0111 1111  = +127

минимальное отрицательное значение 1000 0000  = -128

Вещественное число (дробное) выглядит как  

234,56  = 23456 *

где

23456 – мантисса

-2  - знак порядка и порядок

Представление вещественных чисел в двух байтах будет в следующем виде  

ABxx xMMM MMMM MMMM

A – знак числа  (1 Бит)

B – знак порядка  (1 Бит)

ххх – порядок  (3 Бита)   максимальное значение 111(Bin) = 7(Dec)

MMM MMMM MMMM - мантисса (11 бит) максимальное значение 111 1111 1111(Bin) = 2047(Dec)