Пожалуйста, помогите с задачей

Написать программу для задачки:Пользователь вводит с клавиатуры величину, выраженную в килобайтах. Программа переводит ее в биты и мегабайты.
В Паскале

var x: real;

begin

writeln('Введите число(Кб): ');

readln(x);

writeln(x,' Кб = ',x*1024*8,' бит');

writeln(x,' Кб = ',x*1024,' байт');

writeln(x,' Кб = ',x/1024,' Мб');

end.