Вычислить сумму элементов числового массива — Pascal(Паскаль)

{             Пример 2.1. Вычислить сумму элементов числового
                          массива  A = (a1, a2, ..., aN).

                                   Тест
                ╔══════════════════════════════╦═══════════╗
                ║            Данные            ║ Результат ║
                ╠═══════╤══════════════════════╬═══════════╣
                ║ N = 5 │ A = (3, 5, -2, 6, 3) ║  S = 15.0 ║
                ╚═══════╧══════════════════════╩═══════════╝
}

 Program Summa;
   Uses Crt;
   Type Mas = Array [1..20] of Real;
   Var A    : Mas;
       i, N : Integer;
       S    : Real;
 BEGIN
   ClrScr;    {очистка экрана }
   Write('Введите N = ');
   ReadLn(N); {ввод значения N}

   For i := 1 to N do {цикл по элементам массива}
     begin
       Write('A [ ', i , ' ] = ');
       ReadLn(A[i])      {ввод элементов массива}
     end;

   S := 0;     {присваивание начального значения}
   For i := 1 to N do S := S+A[i]; {суммирование}

   WriteLn;
   WriteLn('Сумма равна ', S : 5 : 1);
   ReadLn
 END.