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

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