Дан массив состоящий из 20 элементов. Найти сумму и кол-во элементов отрицательных и кратных 5. Пожалуйста,срочно надо!

Program n1;Uses CRT;Const n=20;Var a: array[1..n] of integer; i,k,s: integer;beginFor i:=1 to n dobegin; a[i]:=random(50)-25; write(a[i],' '); if (a[i] mod 5=0)and(a[i]<0) then begin k:=k+1; s:=s+a[i]; end; end;writeln('Kolichestvo =',k,' Summa=',s);readlnend.