PROGRAMM summa;

VAR
 m: ARRAY[1..30] of real; {декларация массива}
 i: integer; {параметр цикла FOR}
 s: real; {сумма элементов}

BEGIN
 FOR i:=1 TO 30 DO {заполнение массива}
 Begin
 Write('Введите элемент последовательности N ',i);
 Readln(m[i]);
 End;
 s:=0; {обнуление счётчика суммы}
 FOR i:=1 TO 30 DO s:=s+m[i]; {вычисление суммы}
 Write('Сумма элементов последовательности равна ',s);
 Readln; { пауза }
END.

---