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.