Определите количество байт, требуемых для записи наибольшего числового значения, кодируемого 14 битами.

при такой постановке вопроса, про числовые значения - это так, отвлечь от сути. 14 бит - это 14/8 ≈ 2 байта. и все.

а если речь о том, что в байтовом коде число представялется каким-то особым образом - то надо указаывать в вопросе.

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');

    readln

end.

var

  n: integer;

begin

  readln(n);

  writeln(abs(n)-2);

end.