Var
a,b,min:real;
begin
write('А - ');
readln(a);
write('B - ');
readln(b);
if a<b then min:=a
else min:=b;
writeln('Min - ',min);
<span>end.</span>
((x<5) или (X<3)) и ((x<2) или (x<1))
X=1
3 бита мало. 4 бита достаточно. 5 - много.
Пример.
Клады везде: 1111
Кладов нет: 0000
Клад есть только в №3: 0010