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