Запишите заданные двоичные числа на основе p = 4(04=002;14=012; 24=102; 34=112) a) 111010110012
b) 11000111100112
c) 111110002
d) 101001101112

Преобразуем условие в более понятное.
Обозначаем:
a=Пер­вая буква со­глас­ная;
b=Вто­рая буква со­глас­ная
c=Тре­тья буква глас­ная
Тогда условие можно записать следующим образом:

Перейдем к исходным обозначениям, учтя, что отрицание "гласная" есть "согласная", а отрицание "согласная" есть "гласная":
(Пер­вая буква глас­ная ИЛИ Вто­рая буква глас­ная) И Тре­тья буква согласная.
Можно сформулировать еще короче:
"Пер­вая ИЛИ вторая буква глас­ная, а третья обязательно согласная".
Этому условию удовлетворяет только имя 4) Лидия - в нем вторая буква гласная, а третья согласная.

Var  question :
 array [1..3] of string;
 awns,mark: integer; 
begin   
 writeln('Вопрос 1'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ 
 if awns = 1 then mark := mark + 1;   
 writeln('Вопрос 2'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ   
 if awns = 2 then mark := mark + 1;   
 writeln('Вопрос 3'+ #10 +'1 - вариант ответа'+ #10 +'2 - вариант ответа'+ #10 +'3 - вариант ответа');   
 readln(awns);   
 // проверяем ответ   
 if awns = 3 then mark := mark + 1; 
 // выводим результат   
 writeln(' Вы ответили на ' + mark + ' вопросов из 3'); 
end.