Заполните два массива N [1..15] и M [1..15] случайными числами в диапозоне от -15 до 20ю Подсчитайте в каждом ммассиве количество положительных и отрицательных значений. Программа должна быть на Pascale, желательно на завтра.

Program pr;uses crt;Var N,M:array[1..15] of integer;    i,kNp,kMp,kNo,kMo:integer;BeginkNp:=0;kMp:=0;kNo:=0;kMo:=0;Writeln('mas(N)');for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end;Writeln;Writeln('mas(M)');for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;for i:=1 to 15 do Begin                  if N[i]>=0 then kNp:=kNp+1                             else kNo:=kNo+1;                  if M[i]>=0 then kMp:=kMp+1                             else kMo:=kMo+1;                  end;Writeln;Writeln('Кол-во положительных массива N=',kNp);Writeln('Кол-во отрицательных массива N=',kNo);Writeln('Кол-во положительных массива M=',kMp);Writeln('Кол-во отрицательных массива M=',kMo);readln;end.