Найти значение логической переменной x из логического уравнения x\/b \/x\/a=b​

А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.

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="")