Срочно решитее прошууу!!!!!
Заполнить массив a[1..10] из десяти целых чисел от -30 до 30 с помощью датчика случайных чисел и вывести исходный массив на экран.Найти сумму положительных
элементов массива.

const    n = 10;var    s, i: integer;    a: array[1..n] of integer;begin    Randomize;    for i := 1 to n do     begin        a[i] := random(60) - 30;        write(a[i], ' ');         if a[i] > 0 then            s := s + a[i];    end;        writeln;    writeln(s);end.