Написать программу для вычисления суммы элементов заданного числового массива

program massiv6;02.uses crt;03.const N=10;04.type x=array [1..N] of integer;05.var a:x;06.i:integer;07.s:integer;08.begin09.clrscr;10.randomize;11.for i:=1 to N do12.begin13.a[i]:=-100+random(201);14.write (A[i]:5)15.end;16.writeln;17.s:=0;18.for i:=1 to N do19.if a[i]>0 then20.begin21.s:=s+a[i]22.end;23.writeln (‘Сумма положительных элементов =  ’,s:5);24.readln25.end.