Составить: 1 – линейный алгоритм, состоящий из любого количества шагов, где формальный исполнитель покупает любой товар; 2 – линейный алгоритм, состоящий из любого количества шагов, где формальный исполнитель во второй раз покупает тот же товар, что покупал в первый раз; 3 – линейный алгоритм, состоящий из любого количества шагов, где неформальный исполнитель покупает любой товар; 4 – линейный алгоритм, состоящий из любого количества шагов, где неформальный исполнитель во второй раз покупает тот же товар, что покупал в первый раз; 5 – схему сказки «Три поросёнка»

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.

 

Ввод графической информации может быть осуществлён с различных устройств: клавиатуры, мыши, сканера или графического планшета. Каждое из них имеет те или иные достоинства, но основной характеристикой является удобство использования. Клавиатура плохо подходит для построения изображений, так как она изначально предназначена для набора символьной, а не графической информации. Однако применение клавиатуры для ввода графической информации имеет определённые преимущества. С клавиш можно перемещать курсор каждый раз на одну позицию.