#Программа для печати стажёров, с которыми будет заключён договор note = 'Варя, Миша и Стас отлично проявили себя на стажировке'
offer = note[0:4] note[6:10] note[13:17]
print('Выслать предложение о работе:', offer)

Один стажёр пытался запрограммировать формирование запроса на заключение трудовых договоров. Увы, он плохо знал работу со строками.

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.