Дана величина А, выражающая объем инфы в б. Перевести А в

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.