алг Сумма (арг цел N, арг вещ
           таб A[1:N], рез вещ S)
  дано N>0

нач цел i
  S:=0
  нц для i от 1 до N
    S := S + A[i]
  кц
кон

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 dо {цикл по элементам массива}
    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.

CLS
INPUT "N = " ; N :  DIM A(N)
FOR i = 1 TO N
  PRINT "A(" ; i ; ")=" ;
  INPUT A(i)
NEXT i

S = 0
FOR i = 1 TO N
    S = S + A(i)
NEXT i

PRINT "Сумма = " ; S
END