Дана величина а выражающая объем информации в байтах, перевести а в биты, килобайты. (Паскаль)

program zz1;

var a, b: integer; / / задаем переменные целого типа

n:real; / / задаем переменную не целого типа

begin

write (' введите заданную величину а '); / / вводим с клавиатуры число

read (a);

b: = a * 8; / / переводим объем информации в биты, умножив исходное число на восемь

n: = a / 1024; / / переводим объем информации в килобайты, разделив исходное число на 1024

writeln (' объем информации в битах = ', b); / / выводим один ответ

write (' объем информации в килобайтах = ', n); / / выводим другой ответ

end.