выручайте. Решить задачу:
Найти значение f принимающей значение целого типа: F:=x+3/x, если x<0, то вывести значение F, иначе x=x-2 и вывести значение F.

a = [int(i) for i in input("Список: ").split()] #Вводится через пробел

b = int(input("a = "))

bb = int(input("b = "))

c = []

d = []

s = []

e = []

f = []

print("Количество значений списка:",len(a))

print("Среднее значение списка:",sum(a)/len(a))

print("Сумма всех элементов списка:", sum(a))

for i in a:

   if i==0:

       c+=[i]

   if i==b:

       d+=[i]

   if i>b:

       s+=[i]

   if i<0:

       e+=[i]

   if i>0:

       f+=[i]

print("Количество нулевых элементов:",len(c))

print("Количество чисел а:",len(d))

print("Максимальный и минимальный элемент списка:",max(a),min(a))

print("Количество положительных элементов:",len(f))

print("Количество отрицательных элементов:",len(e))

print("Количество элементов крупнее числа b:",len(s))

1)

var

n,x,s,i : integer;

begin

s:=0;

write('Введите n: '); read(n);

for i:=1 to n do

begin

write('X - ', i, ' = '); read(x);

if x mod 10 = 9 then

s:=s+n;

end;

writeln('Сумма с 9 на конце = ', s);

end.

2)

var

n,i,max,x : integer;

begin

max:=0;

write('Введите n: '); read(n);

for i:=1 to n do

begin

if (x > max) and (x mod 5 = 0) then

max:=x;

write('X - ',i,' = '); read(x);

end;

writeln('Максимальное, кратное 5 = ', max);

end.

3)

var

a,b,i : integer;

begin

write('a = '); read(a);

write('b = '); read(b);

for i:=a to b do

begin

if (i mod 4 = 0) and (i mod 6 <> 0) then

writeln(i);

end;

end.