Задачу нужно решить на питоне. Продукты и пакет
Вася пришел в магазин с очень слабым пакетом, поэтому ему нужно посчитать, сколько всего весят продукты, которые он хочет купить. Зная общую массу продуктов, Вася определит, сможет ли он донести эти продукты.

Мы знаем, что вася хочет купить n продуктов. Вес каждого из продуктов ωi
​ вася будет спрашивать у продавца и вводить в программу. Нам нужно посчитать сумму Σⁿi=1 ωi
Входные данные
В первой строке вводится натуральное число n - количество продуктов, которые хочет купить Вася. В последующих n строках вводится натуральное число ωi - масса одного из продуктов

Выходные данные
Сумма всех чисел ωi

Sample Input:

3
5
8
1
Sample Output:

14

Program P1;

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

Var a,p: Real;
    n,i: Integer;

Begin
    ClrScr; {просто чтобы очистить экран можно и не использовать}
    Write('Type a: '); Read(a);
    Write('Type n: '); Read(n);
    for i:=1 to n do
    begin
        p:=p+(a*(a-i*n)*(a-n*n));
        {не совсем понятны три точки в условии}
    end;
    Writeln('p=', p:3:3); {количество знаков после запятой и общее}
    Readkey; {или можно использовать Readln;}
End.

Program P1;

Uses Crt; {можно и не использовать, без оной clrscr -  видаст ошибку, что нет такого}

Var a,p: Real;
    n,i: Integer;

Begin
    ClrScr; {просто чтобы очистить экран можно и не использовать}
    Write('Type a: '); Read(a);
    Write('Type n: '); Read(n);
    for i:=1 to n do
    begin
        p:=p+(a*(a-i*n)*(a-n*n));
        {не совсем понятны три точки в условии}
    end;
    Writeln('p=', p:3:3); {количество знаков после запятой и общее}
    Readkey; {или можно использовать Readln;}
End.