Играй "Угадайка" в Pascal

[korzunmaria]

Как создать в паскале такую игру? Компьютер должен загадать число, а пользователь должен отгадать. Нам сказали что НЕ нужно использовать массивы. Нужно использовать желательно бинарный поиск.

[JinglsOrg]

Википедия грит что бинарный поиск - поиск в массиве.

Program Brat;
var a,b:integer;
begin
a:=random(100000000);     //возвращает случайное число от нуля до 100000000 минус еденичка
writeln('Будьте любезны, ввести предполагаемое вами число.');
readln(b);
if a=b then writeln('Великолепно!') else writeln('Позор, позор! Правильный ответ то был: ',a);
end.

[Serge_Bliznykov]

давайте начнём с того, что Вы опишете правила этой игры.
Уж не о "Быках и Коровах" идёт речь?