Помогите решить задания в программе паскаль: 1) вычислить…

program ms; uses crt; var a: array [1… 10] of integer; l,k,s,i: longint; beginclrscr; writeln ('Введите 10 элементов массива'); for i: =1 to 10 dobegin readln (a[i]); if a[i]<0 then l: =l+a[i]; if a[i]>0 then k: =k+a[i]; end; s: =l*k; writeln (s); readkey; end.