Требуется заполнить массив именно так: X = [1 3 5 7 9 11]
Какой оператор надо поместить в тело цикла вместо многоточия?
for k:=1 to 6 do begin
...
end;
X[k] := k
X[k] := 2*k
X[k] := 2*k - 1
X[k] := 2*k + 1
X[k] := 2*(k - 1)

1)вывод Загадайте натуральное четное число
2) вывод Прибавьте к нему 4

3)вывод Уменьшите на 6

4) вывод Поделите на 2

5)вывод Что у Вас получилось?

6)ввод rezult

7)chislo:= rezult*2+6-4

8)вывод chislo

код на Си

#include<stdio.h>

#include<conio.h>

#include<math.h>

int main() 

  {

     int result;

     puts("Загадайте натуральное четное число \n");

     puts("Прибавьте к нему 4 \n");

     puts("Уменьшите на 6 \n");

     puts("Поделите на 2 \n");

     puts("Что у Вас получилось? \n");

     scanf("%i", &result);

     printf("Вы загадали число %i", result*2+6-4);

     getch();

 }

Program pr;
uses crt;
Var a,b,x1,i:integer;
Begin
x1:=0;
Writeln('vvedite chislo');
readln(a);
Writeln('vvedite posledovatelnost');
For i:=1 to 7 do
Begin
readln(b);
if a=b then x1:=i;
end;
Writeln('¹=',x1);
readln;
end.

Если номер последовательность выводить нужно каждый раз когда встречается то число тогда так

Program pr;
uses crt;
Var a,b,x1,i:integer;
Begin
x1:=0;
Writeln('vvedite chislo');
readln(a);
Writeln('vvedite posledovatelnost');
For i:=1 to 7 do
Begin
readln(b);
if a=b then Writeln('¹=',i);
end;
readln;
end.