IP подсети: 121.89.0.0

IP хоста: 0.0.179.216

ip адрес?

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

bank_ques = {}

#Создание вопросов:

# bank_ques["сам вопрос"'] = "ответ на него", вопрос и ответ в виде строки, даже если это число

bank_ques["2*2"] = "4"

bank_ques["3*3"] = "9"

bank_ques["4*4"] = "16"

bank_ques["5*5"] = "25"

bank_ques["6*6"] = "36"

#Вопросов может быть неограниченное количество

# Также генерировать вопросы можно как в самом коде, так и сделать в цикле, но тут уже как хотите

for question in bank_ques:

   print(question)

   answer = input("ответ: ")

   if answer == bank_ques[question]:

       print("правильно")

   else:

       print("ответ неверный")