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

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.