Вбарабане для розыгрышша лежит 32 шара ,сколько будет информации, если выпал 15 номер шара

на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.