составить блок схему и программу . Сформировать одномерный массив из промежутка -40;10 найти сумму СРОЧНО!!!

var    a: array[1..100] of integer;    i, n, s: integer;begin    readln(n);    s := 0;    for i := 1 to n do     begin        a[i] := Random(50) - 40;        write(a[i], ' ');        s := s + a[i];    end;        writeln;    writeln('s = ', s);end.