дан массив из 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;