Помогите составить не простую для меня программу)

[ALFIR]

Написать программу на языке pascal , которая для заданного массива вычисляет сумму , произведение и количество его положительных элементов. Помогите очень надо)

 

[nayke]

Написать программу на языке pascal , которая для заданного массива Посмотреть вложение 3986 вычисляет сумму , произведение и количество его положительных элементов. Помогите очень надо)

sum:=0;
multi:=1;
count:=0;
For i:=1 to n do
if a[i]>0 then
begin
sum:=sum+a[i];
multi:=multi*a[i];
inc(count);
end;

 

[ALFIR]

Спасибо большое), если не сложно, напиши прогу полностью пожалуйста, а то не до конца смог разобраться)