Задания(Дана величина А, выражающая объем инфы в байтах. Перевести А в

Задания(Дана величина А, выражающая объем инфы в б. Перевести А в более крупные единицы измерения инфы.)
var a:real;
begin
readln(a);
writeln('В кб' a/1024);
writeln('В мб' a/(1024*1024));
end. это правельно?если нет,тогда распишите так как у меня написано,чтобы можно было вести и не морочить для себя голову.