Выполняемое действие-Применяемая команда 1.После загрузки ОС Windows указать,
какие кнопки расположены на
Панели задач.-Применяемая команда
2.Перечислить, сколько и какие
объекты (паки, документы, ярлыки,
прикладные программы)
расположены на рабочем столе.-Применяемая команда
3.Открыть Главное меню. Указать
команду.-Применяемая команда
4.Перечислить пункты обязательного
раздела Главного меню.-Применяемая команда
5.Перечислить пункты произвольного
раздела Главного меню.-Применяемая команда
6.Открыть Контекстное меню. Указать-Применяемая команда
команду.
7.Перечислить пункты Контекстного
меню, не выделяя объекты.-Применяемая команда
8.Перечислить пункты Контекстного
меню, выделив какой-либо из
объектов. Указать, какой объект
выделили.-Применяемая команда

public partial class Form1 : Form{    public Form1()    {        InitializeComponent();        this.Load += Form1_Load;        this.Paint += Form1_Paint;        DoubleBuffered = true;    }     int r = 100;     //радиус    int x0 = 150;   //координата X центра окружности    int y0 = 150;   //координата X центра окружности    float x = 0, y = 0;    double fi = 0.0;    void Form1_Load(object sender, EventArgs e)    {        Timer tmr = new Timer();        tmr.Interval = 30;        tmr.Tick += tmr_Tick;        tmr.Start();    }     void tmr_Tick(object sender, EventArgs e)    {        fi += 0.1;        if (fi > 2 * Math.PI) fi = 0.0;        x = (float)(r * Math.Cos(fi) + x0);        y = (float)(r * Math.Sin(fi) + y0);        Invalidate();    }     void Form1_Paint(object sender, PaintEventArgs e)    {        e.Graphics.FillEllipse(Brushes.Red, x, y, 20, 20);    }}

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.