Помогите решить задачу в Pascal, срочно даю 30+ баллов подробнее на фото

А если без between

тогда (d>=1) and (d<=2) вместо d.Between(1,2)

Хотя тривиально глупо работать в языке, имеющем более мощные и удобные средства программирования и не использовать их по причине "а нам про это не говорили".

Это как в известном школьном анекдоте про то, что "задачу с ящиками апельсинов решить не могу, потому что в школе мы решаем на ящики с яблоками".