Пожалуйста, помогите с задачей. 35баллов даю!!!!!!!!!!!!!!Написать программку для

program line_4;

uses crt;

var

kb, b: longint;

mb: real;

begin

clrscr;

write(kb (кб) = ); readln(kb);

b:=kb*1024*8;

mb:=kb/1024;

writeln(kb, кб = , b, бит = , mb:6:4, мб);

readkey;

end.

var x: real;

begin

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

readln(x);

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

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

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

end.