Предложение является высказыванием если -

Для корректной работы программы диапазоны не должны пересекаться, то есть, должно быть так: X1 ≤ X2 < Y1 ≤ Y2 < Z1 ≤ Z2

Var
   X1,X2,Y1,Y2,Z1,Z2,G:byte;
Begin
Write('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 = 85
X2 = 94
Y1 = 95
Y2 = 104
Z1 = 105
Z2 = 200
G = 115
Супертяжёлый вес

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  Write('0 1 ');
  var p:=1;
  for var i:=1 to 10 do begin
    p*=2;
    Write(i,' ',p,' ')
    end;
  Writeln
end.

Конечно, можно на каждом шаге вычислять два в нужной степени. Но это глуповатое занятие, поскольку мы видим: следующее значение степени равно удвоенному предыдущему. А начать надо, конечно, от единицы - нулевой степени двойки. Поэтому мы сразу выводим 0 и 1 и засылаем единицу в переменную р, которую потом будем удваивать.
Далее в цикле меняем i от 1 до 10 и для каждого i выводим его значение и через пробел удвоенное значение р.