Составить таблицу истинности

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 выводим его значение и через пробел удвоенное значение р.

1)
a = float(input("Введіть ширину кімнати: "))
b = float(input("Введіть висоту кімнати: "))
c = float(input("ширину віна: "))
d = float(input("висоту вікна: "))
m = float(input("ширину дверей: "))
n = float(input("висоту дверей: "))
s = 4*(a * b )#площа 4 сторін кімнати
s_v = (c * d )#площа вікна
s_d = (m * n )#площа дверей
print('Площа всіх стін: ',s)
print("Площа вікна: ",s_v)
print("Площа дверей: ",s_d)
print("Площа для поклеювання обоїв :",s-(s_d+s_v),'m^2' )

2)
n = int(input("n = "))
while n>0:
a = n%10
n = n//10
print(a,end="")