Определить наличие мат.сопроцессора у ПК (Ревизия системных ресурсов)

begin
Write (' Type of Comp: ');
case Mem [$F000:$FFFE] of
$FF: WriteLn ('PC');
$FE: WriteLn('XT');
$FD: WriteLn('PCjr');
$FC: WriteLn('AT');
end
end.

Var a : Byte;
Begin
  a:=254;
  If (a and 1)<>0 then Writeln('Есть нулевой бит') else Writeln('Нет нулевого бита');
  If (a and 2)<>0 then Writeln('Есть первый бит') else Writeln('Нет первого бита');
  If (a and 64)<>0 then Writeln('Есть шестой бит') else Writeln('Нет шестого бита');
  If (a and 128)<>0 then Writeln('Есть седьмой бит') else Writeln('Нет седьмого бита');
End.

WriteLn('Количество принтеров: ', (memw[$40:$10] shr 14) and $3);

writeln('Nalichie cooprocess: ', memw[$40:$10] shr 1);

writeln('1 it: ', memw[$40:$10] and (1 shl 1)<>0)

begin
 Write (' Type of Comp: ');
 case Mem [$F000:$FFFE] of
 $FF: WriteLn ('PC');
 $FE: WriteLn('XT');
 $FD: WriteLn('PCjr');
 $FC: WriteLn('AT');
end;
 WriteLn('chislo print: ', memw[$40:$10] shr 14 ) ;
 writeln('Nalichie cooprocess: ', memw[$40:$10] and (1 shl 1)<>0);
 writeln('14 bit: ', memw[$40:$10] and (1 shl 5)<>0);
 writeln('15 bit: ', memw[$40:$10] and (1 shl 12)<>0);
end.

begin
  Write('Тип компьютера: ');
  case mem[$F000:$FFFE] of
  $FF: WriteLn('PC');
  $FE: WriteLn('XT');
  $FD: WriteLn('PCjr');
  $FC: WriteLn('AT');
  end;
  Write('Сопроцессор: ');
  if mem[$40:$10] and $2 <> 0 then
    WriteLn('есть')
  else
    WriteLn('нет');
  WriteLn('Количество принтеров: ', memw[$40:$10] shr 14);
end.