Дан размер файла в битах. Перевести его в байты и биты ( например, 12 бит будет равно 1 байт и 4 бита) (Программу Паскаль)

program Chernovik;

var a: integer;

begin

write ('Введите размер файла в битах: ');

readln (a);

write (a div 8,' байт(-а) ', a mod 8,' бит(-а)')

end.

Объяснение:

div - целочисленное деление

mod - остаток от целочисленного деления

1 байт = 8 бит