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.
Function func32771914() As String
Dim i As Single, S As String
For i = 0.12 To 1.88 Step 0.12
S = S & Cos(i ^ 2) + 5 / i ^ 3 - 2 & ";"
Next
func32771914 = S
End Function
Excel VBA
<span>\красная книга\Ботаника\Евразия \Россия</span>