var a:Integer;
b:Real;
begin
readln(a);
writeln('Объём А в битах равен ', a);
b:=a/8/1024;
writeln('Объём А в килобайтах равен ', b:0:1);
end.
var a:Integer;
b:Real;
begin
readln(a);
writeln('Объём А в битах равен ', a);
b:=a/8/1024;
writeln('Объём А в килобайтах равен ', b:0:1);
end.