Паскаль. Составить программу для определения суммы чисел от 1 до N

 В Pascal:const n=100;var a: array[1..n] of integer;s,i:integer;begins:=0;for i:=1 to n do beginwriteln('Введите', i, '-й элемент массива');readln (a[i]);end;for i:=1 to n do begins:=a[i]+s;end;write('Сумма элементов массива = ',s);end.