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