ПОМОГИТЕ записать программу нахождения суммы 10 натуральных чисел введенных с клавиатуры...

Question

ПОМОГИТЕ записать программу нахождения суммы 10 натуральных чисел введенных с клавиатуры с помощью цикла с заданным количеством повторением и заданным условием окончания работы (на языке Паскаль)

Answer 1

Const
    n = 10;

var
    i, a, s: integer;

begin
    for i := 1 to n do
    begin
        read(a);
        s := s + a;
    end;
    
    writeln(s);    
end.