Можно так: складываем. Делим пополам - получаем среднее. Находим разность между заданными числами и средним. Если разность отрицательная - то меньшее число, если разность положительная - то большее.
Тут легко) вы от самого дерева, где сам кролик спрятался ведите дорожку и всё)
Var a,min:integer;
begin;
min:=<span>32767;
</span>a:=1;
while a<>0 do
begin;
readln(a);
if a=0 then break;
if a>0 then exit;
if min>a then min:=a;
end;
writeln(min);
end.
Кодирование - переход от одной формы представления информации к другой, более удобной для восприятия, хранения, передачи или обработки информации.
Текила,что тут не понятного?