Вроде простая задача, но никак не получается (VISUAL BASIC или PASKAL) Разработать...

Question

Вроде простая задача, но никак не получается
(VISUAL BASIC или PASKAL)
Разработать программу, которая отгадывает задуманное пользователем число от 0 до 7, задавая ему вопросы вида "Задуманое число больше N?" и получая ответы "Да", или "Нет". Прогопмма должна задать не больше трёх вопросов, после чего вывести ответ

Answer 1

//PascalABC.NET 3.2 сборка 1318

Var
 s,a:string;
 i:integer;
 c:char;
begin
 s:='01234567';
 for i:=1 to 3 do
  begin
    c:=s[length(s) div 2];
    writeln('Число больше ',c,'?');
    readln(a);
    if a='Да' then delete(s,1,length(s) div 2)
     else
    delete(s,length(s) div 2+1,length(s) div 2);
  end;
writeln(s);
end. 

Пример работы программы:
Число больше 3?
Да
Число больше 5?
Нет
Число больше 4?
Нет
4