{* Подсчет суммы элементов одномерного массива *}

Unit SAMPLE08;
Interface
Implementation
Begin
 writeln('Подсчет суммы элементов одномерного массива');
End.

Program pas;

Uses sample08.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : Array[1..10] Of integer;
  s : longint;
  i : integer;
Begin
  writeln('введите 10 элементов массива');
  s := 0;
  For i := 1 To 10 Do {* Цикл для i => [1 .. 10] *}
  Begin
    readln( a[i] );
    s := s + a[i];
  End;
  writeln( 'Сумма элементов массива = ', s );
End.