Дана величина A выражающая объем информации в байтах. Перевести число A в биты и мегабайты

Var

a:real;

Begin

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

Readln(a);

writeln(a*8,' бит');

writeln(a,' байт');

a:=(a/1024);

writeln(a,' Кбайт');

a:=(a/1024);

writeln(a,' Мбайт');

a:=(a/1024);

writeln(a,' Гбайт');

a:=(a/1024);

writeln(a,' Тбайт');

End.