Заполните два массива N [1… 15] и M [1…

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.