Помогиете решить задачу на паскалеЗазад массив А размерностью N случайным…

Program p1; Const N=10; Var A: array[1… N] of integer; summa,i: integer; Begin For i: =1 to n do Begin A[i]: =random (101) -50; Write (A[i],'); End; Writeln; For i: =1 to n do If a[i]>0 then Summa: =summa+a[i]; Writeln ('Сумма положительных элементов=',summa); End.