Дана величина а выражающая объем информации в б, перевести а в

program zz1;

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

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

begin

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

read(a);  

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

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

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

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

end.