Массив А вводится с клавиатуры. Найти сумму его элементов. Размер произвольный. паскаль

var    a: array[1..100] of integer;    i, n, s: integer;begin    readln(n);    s := 0;    for i := 1 to n do     begin        Readln(a[i]);        s := s + a[i];    end;        writeln('s = ', s);end.