Ответ:

var a:integer;beginwriteln(‘Enter byte:’);readln(a);writeln(a,’ byte = ‘,a*8,’ bit = ‘,a/1024,’ KByte’);end.