с программой.Нужно написать на питоне Входные данные

В первой строке входных данный записано число N (1≤N≤10^5) - количество запросов к программе. Следующие N строк содержат описание запросов в формате:

"+ i" - гоблин с номером i (1≤i≤N) встает в конец очереди.

"* i" - привилегированный гоблин с номером i встает в середину очереди.

"-" - первый гоблин из очереди уходит к шаманам. Гарантируется, что на момент такого запроса очередь не пуста.

Выходные данные

Для каждого запроса типа "-" программа должна вывести номер гоблина, который должен зайти к шаманам.

Примеры

входные данные

7

+ 1

+ 2

-

+ 3

+ 4

-

-

выходные данные

1

2

3

{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5}
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin    if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then   begin k:=k+1;   write(a[i]:6);   end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.

№1

var
a,b,v:real;
begin
readln(a,b);
v:=4/3*Pi*sqr(b/2)*(b/2);
a:=sqr(a)*a;
v:=a-v;
writeln(v:7:4);

end.

 

№2

var
s:string[6];
begin
readln(s);
if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))=
(strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then
writeln('Является') else
writeln('Не является');

end.

 

№3

var
a,b:integer;
begin
readln(a,b);
if (a<90) and (b<90) and (180-a-b<90) then
writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.