Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива.
ПОМОГИТЕ,УМОЛЯЮ!!!

uses Crt;Const   N = 10;Var   A:array[1..N] of integer;   i:integer;   P:real;BeginClrScr;P:=1;Write('Введите массив A(',N,'): ');For i:= 1 to N do    Begin    Read(A[i]);    if A[i] > 0 then P:=P*A[i];    End;Write('P = ',P);ReadLn;End.