Writeln('площадь='S'см квадрат '); написат оператор правильно

1.

n = int(input("Введите сколько чисел вы хотите ввести: "))

a = []

for x in range(1, n + 1):

   a.append(int(input("Введите число " + str(x) + ": ")))

s = 0

for x in range(0, len(a)):

   s += a[x]

print("Среднее арифметическое всех чисел:", s/len(a))

2.

print("Числа, которые задумал Ипполит: ")

for x in range(100, 1000):

   if x % 15 == 11 and x % 11 == 9:

       print(x)

3.

n = int(input("Введите сколько чисел вы хотите ввести: "))

a = []

for x in range(1, n + 1):

  a.append(int(input("Введите число " + str(x) + ": ")))

c = []

n = []

p = 0

for x in range(0, len(a)):

   if a[x] % 2 == 0:

       c.append(a[x])

   elif a[x] % 2 != 0:

       n.append(a[x])

   if a[x] > 0:

       p += 1

u = 1

s = 0

for x in range(0, len(c)):

   u *= a[x]

for x in range(0, len(n)):

   s += a[x]

print("Произведение четных чисел:", u)

print("Сумма нечетных чисел:", s)

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

Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3