Почему в разных странах мира практически одновременно появились программы государственного развития сектора ИКТ и появились программы направленные на посторонние информационного общества?

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.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале

1) нужно разделить исходный код на 3 части
001 110 100 с основанием 2
И заменяем каждую группу на: 000-0, 001-1, 010-2, 011-3, 100-4,  101-5,  110-6,  111-7
Получается
001 110 100 с основанием 2 = 164 с основанием 8

2) для перевода в 10ричную систму нужно умножить разряд числа на соответствующую степень разряда
1110100 = 2^6*1+2^5*1+2^4*1+2^3*0+2^2*1+2^1*0+2^0*0=64+32+16+0+4+0+0=116

3)нужно разделить исходный код на группы по 4 разряда
0111 0100
изменяем каждую группу на: 0000-0,  0001-1,  0010-2,  0011-3,  0100-4,  0101-5,  0110-6, 0111-7,  1000-8,  1001-9,  1010-A,  1011-B, 1100-C,  1101-D,  1110-E,  1111-F.
Получается 0111 0100 с основанием 2 = 74 с основанием 16