3.3(1)

var
  a, s: int64;
  i: integer;
  sum, bit: word;

begin
  writeln('Введите упакованую структуру данных в двоичном виде');
  writeln('     PPP0FF0HHHH00VVV');
  write('     ');
  read(a);
  //w := 10;
  //e := 1;
  for i := 0 to 15 do
  begin
    bit := (a mod 10);
    sum := sum + round(bit * power(2, i));
    a := (a div 10)
  end;
  writeln;
  writeln('Составные части структуры:');
  s := sum shr 13;
  writeln('PPP - количество принтеров = ', s);
  s := sum and $0C00 shr 10;
  writeln('FF - количество гибких дисков = ', s);
  s := sum and $01E0 shr 5;
  writeln('H..H - тип жесткого диска = ', s);
  s := sum and $007;
  writeln('VVV - тип видеоадаптера = ', s);
end.