Дан массив из 10 целых чисел определите произведение положительных элементов массива

Задача выполнена на языке Pascal;
Var
  i: integer;
  w: real;
  mas: array[1..10] of integer;
 Begin
  w:= 1;
  For i:=1 to 10 do
   Begin
    if mas[i] > 0 then w:= w * mas[i];
   End;
  Writeln (mas);
 End;