составить алгоритм и написать программу на паскале нахождения произведения только положительных(!!!) из N-вводимых с клавиатуры целых чисел

VarN,A,P:integer;BeginP:=1;Write('N = ');Read(N);For N:= 1 to N do   Begin   Read(A);   if A > 0 then P:=P*A   End;WriteLn(P);End.