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

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.