В одномерном массиве состоящем из 10 целых элементов в интервале от -20 до 20 вычислить произведение положительных элементов

const N = 10;type Tmas = array [1..N] of longint;var m: Tmas; i, proiz: longint;begin proiz := 1; for i := 1 to N do begin readln(m[i]); if m[i]>0 then proiz:=proiz*m[i]; end; writeln(proiz);end.пж как лучший