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

//PascalABC.NET 3.2 сборка 1318Var 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