В паскале Сформировать массив из положительных элементов и найти…

uses crt; var a: array[1… 10] of integer; i,s: integer; beginwriteln ('Исходный массив: '); for i: =1 to 10 do begin a[i]: =random (10-1+1)+1; write (a[i]: 4); end; s: =1; for i: =1 to 10 do begin s: =s*a[i]; end; writeln; writeln ('Произведение элементов: ',s); end. В массиве 10 элементов, которые заданы случайно в пределах от 1 до 10.