programHelloWorld;

var b:double;

var s:string;

begin

    writeln('Введите биты:');

    readln(b);

    b:= b/8;

    writeln('Результатв байтах:');

    writeln(b:15:2);

    b:= b/1024;

    writeln('Результатв килобайтах:');

    writeln(b:15:2);

end.