В ЧЕМ ОШИБКА var f:text;
n,i,s,x:integer;
begin
assign(f,'номера.txt');
reset(f);
readln(f,n);
s:=0;
for i:=1 to n do
begin
read(f,x);
if x mod 2=0 then s:=s+x
end;
writeln('СУМА ',s);
close(f)
end.

1)

import random

number_list = []

for n in range(10):

   number_list.append(random.randint(-10, 10))

print(number_list)

number_list = [number * -1 for number in number_list]

print(number_list)

2)

import random

number_list = []

for n in range(10):

   number_list.append(random.randint(-10, 10))

amount = 0

for number in number_list:

   amount += number

print(amount)

3)

import random

number_list = []

for i in range(10):

   number_list.append(random.randint(-10, 10))

number_list = [number ** 2 for number in number_list]

amount = 0

for n in number_list:

   amount += n

print(amount)

4)

import random

number_list = []

for n in range(10):

   number_list.append(random.randint(-10, 10))

negative_numbers = []

positive_numbers = []

for number in number_list:

   if number < 0:

       negative_numbers.append(number)

   elif number > 0:

       positive_numbers.append(number)

amount_positive = 0

amount_negative = 0

for n in negative_numbers:

   amount_negative += n

print('сумма отрицательных чисел: ' + str(amount_negative))

for p in positive_numbers:

   amount_positive += p

print('сумма положительных: ' + str(amount_positive))

1)  k:=k mod 3+k*cos(5);
В правой части стоит функция косинус, которая определена только для вещественных чисел и операция mod, которая определена только для целых чисел. Если k целочисленное, то правая часть будет вещественной и попытка присвоить вещественное значение целочисленной переменной недопустима. Надо ставить явное преобразование, например  k:=Trunc(k mod 3+k*cos(5)); или  k:=Round(k mod 3+k*cos(5));
Если же k - вещественное, то операция k mod 2 недопустима.
2) x:=x*2 div 6+x/4
Тут в правой части смешаны операция div, которая определена только для целых и операция деления, которая определена для вещественных. Такое смешивание вещественных и целый запрещено. В Паскале нет функции перевода целых в вещественные, только процедура, но её в выражение не встроишь. Поэтому можно только говорить о переводе результата х/4 к целому значение посредством Trunc(х/4) или Round(x/4). Либо о замене х/4 на x div 4. Само собой, х надо объявлять целым.