Сделать программу abcpascal даны 2 числа если оба числа отрицательные то найти корень из деления иначе увеличить первое в 3 раза а второе на 7

var a,b : real;

begin

read(a,b);

if (a<0) and (b<0) then Writeln(sqrt(a/b)) else  

Writeln(a*3,' ',b+7);

end.

x1, y1 = int(input()), int(input())  # коорд. первого ферзя

x2, y2 = int(input()), int(input())  # коорд. второго ферзя

if (x1 == x2) or (y1 == y2) or (x1 == y1 and x2 == y2):   # условия при которых

# ферзи встречают друг друга на своих линиях атаки

   print("Ферзи бьют друг друга")

else:

   print("Феризи не бьют друг друга")

Вторая:

str = [int(i) for i in input().split()]  # Генерация списка

'''

split() разбивает строку на части,  

используя специальный разделитель,

и возвращает эти части в виде списка.

'''

for i in range(1, len(str)-1):

   str[i] += 5

print(str)

1) 15

Есть переменные n=3 и d=n*3. В цикле к переменной d добавляется значение i(от 1 до 3, сумма всех - 6), d=9+6=15. В конце выводится переменная d.

2) 204

Объявляются переменные k и m. Создается массив из 12 элементов, им присваивается значение. В цикле в if идет присвоение каждому элементу массива значения 17(не сравнение, так как сравнение "=="), после к переменной m прибавляется значение элемента массива(то есть всегда 17, так как в условии не сравнение). Имеем 12 элементов, каждый из которых больше предыдущего на 17. В конце выводится переменная m равная последнему элементу массива - 204.