ПОМОГИТЕ записать программу нахождения суммы 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.