составьте программу вычисления суммы положительных элементов одномерного массива. в паскале

            Const n=4;Var a:array [1..n] of integer;s,i:integer;begin   randomize;    for i:=1 to n do  begin            a[i] := random(100);            write(a[i]:6);            end;            writeln;s:=0;for i:=1 to n doif a[i]>0 then s:=s+a[i];writeln('simma=',s);end.