ПОМОГИТЕ С ПРОГОЙ В ПАСКАЛЕ ПЛИИИИИЗ ДАЮ 99 БАЛЛОВВ
какой из трех весовых категорий будет выступать тяжелоатлет, если его вес G кг, а весовые границы трех категорий соответственно: X1...X2, Y1 ... Y2, Z1...Z2?

Для корректной работы программы диапазоны не должны пересекаться, то есть, должно быть так: X1 ≤ X2 < Y1 ≤ Y2 < Z1 ≤ Z2Var   X1,X2,Y1,Y2,Z1,Z2,G:byte;BeginWrite('X1 = ');ReadLn(X1);Write('X2 = ');ReadLn(X2);Write('Y1 = ');ReadLn(Y1);Write('Y2 = ');ReadLn(Y2);Write('Z1 = ');ReadLn(Z1);Write('Z2 = ');ReadLn(Z2);Write('G = ');ReadLn(G);if (X1<=G)and(G<=X2) then WriteLn('Полутяжёлый вес')else if (Y1<=G)and(G<=Y2) then WriteLn('Тяжёлый вес')     else if (Z1<=G)and(G<=Z2) then WriteLn('Супертяжёлый вес')          else WriteLn('Не попадает в данные весовые категории')End.Пример работы программы:X1 = 85X2 = 94Y1 = 95Y2 = 104Z1 = 105Z2 = 200G = 115Супертяжёлый вес