Var
N,A,P:integer;
Begin
P:=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.
If M<=15 then M:=2*Sqrt(N) else M:=N-3;
В последнем действии 0 считается как чётное??? Если да, то вот:
35735375537733
Если нет, то вот:
05705375537703