Дана величина А, выражающая объем информации в байтах. Перевести А в более крупные единицы измерения информации (Килобайты - К, Мегабайты М, Гигабайты - Г)

program zz1;

var a:integer; // задаем переменную целого типа

n, b, c:real;// задаем переменные не целого типа

begin

write(' введите заданную величину а ');  // вводим с клавиатуры число

read(a);  

n:= a / 1024; // переводим объем информации в килобайты

b:= (a / 1024) / 1024; // переводим объем информации в мегабайты

c:= ((a / 1024) / 1024) / 1024; // переводим объем информации в гигабайты

writeln(' объем информации в килобайтах = ', n); // выводим ответ

writeln(' объем информации в мегабайтах = ', b);  

write(' объем информации в гигабайтах = ', c);

end.