Записать программу нахождения суммы 10 натуральных чисел введенных с клавиатуры с цикла с заданным количеством повторением и заданным условием окончания работы (на языке паскаль)

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.