Помогите пожалуйста,второе,третье и четвертое хотя бы

Uses crt;var i,s:integer;a:array[1..5] of integer;beginrandomize;s:=0;for i:=1 to 5 dobegina[i]:=random(15)-5;if a[i]>0 then s:=s+a[i];end;writeln(s);readln;end.uses crt;var i,s:integer;a:array[1..7] of integer;begins:=0;randomize;for i:=1 to 7 dobegina[i]:=random(15)-5;if ((a[i]>0) and (a[i] mod 2 = 0)) then inc(s);end;writeln(s);readln;end.uses crt;var i,s:integer;a:array[1..6] of integer;begins:=1;randomize;for i:=1 to 6 dobegina[i]:=random(15)-5;if (a[i]>0) then s:=s*a[i];end;writeln(s);readln;end.