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

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