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.
