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