Напишите программы для этих 2х задач в qb64(бейсик)

# Задание 5 Без использование ген списка

list = [-23, -15, -10, -4, 3, 7, 12, 35, 47, 88]

list2 = []

for i in list:

   if i < 0:

       list2.append(i)

print(list2)

# Задание 5 С использованием ген списка

list = []

list2 = []

for i in range(-50,50, 10):

   list.append(i)

   if i < 0:

       list2.append(i)

print(list2)

# Заданиче 6 без использование ген списка

a = [1, 2, 3, 5, 8, 13, 21, 34, 55]

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in a:

   if i != a[k]:

       b.append(i)

print(b)

# Заданиче 6 c использованием ген списка

a = []

b = []

k = int(input('Введите индекс k (от 0 до 9): '))

for i in range(10):

   a.append(i)

print(a)

for x in a:

   if x != a[k]:

       b.append(x)

print(b)

Объяснение:

Программа:
a = input("Введите текущую координату фигуры(вертикаль): ")
b = input("Введите текущую координату фигуры(горизонталь): ")
c = input("Введите координату для хода(вертикаль): ")
d = input("Введите координату для хода(горизонталь): ")
# Условие
if (a==c) and (b==c):
#Конец условия
     print("Фигура может сделать ход")
else:
     print("Фигура НЕ может сделать ход")
Условия:
а) if (a==c) and (b==c): #ладья
б) if abs(a-c) == abs(b-d): #слон
в) if abs(a-c)==1 or abs(b-d)==1: #король
г) if abs(a-c) == abs(b-d) or a == c or b == d: #ферзь
ж) if((abs(abs(a-c)-2)<0.5) and (abs(abs(b-d)-1)<0.5)
        or (abs(abs(a-c)-1)<0.5) and (abs(abs(b-d)-2.0)<0.5)): #конь