Сколько килобайтов информации содержится в сообщении объемом 1/16 мегабайта?

Водном содержится 1 бит информации

Var x,y,z: longint; begin writeln(' test'); writeln(' выберите верный вариант ответа 1,2 или 3'); writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; writeln(' сюда вбиваешь вопрос '); writeln('1.сюда варианты ответов); writeln('2.сюда варианты ответов); writeln('3.сюда варианты ответов); read(x); if (x=номер верного варианта) then y: =y+1; if (y=3)then write('ваша оценка 5'); if  (y=2)then write('ваша оценка 3'); if  (y=1)then write('ваша оценка 2'); end. p.s.прошу проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале

Var a,b,a1,b1: real; begin   readln(a,b);   if a = b then writeln('числа равны')   else       if a> b then begin           a1: =2*a*b; b1: =(a+b)/2;           a: =a1; b: =b1;           writeln('a = ',a,' b = ',b)       end       else begin           b1: =2*a*b; a1: =(a+b)/2;           a: =a1; b: =b1;           writeln('a = ',a,' b = ',b);       end;   end.