НГ
Наталия Губанова
program prj1;
var i,k: integer;
A: array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do A[ i ]:=random(45) - 20;
k:=1;
for i:=1 to 10 do
if abs(A[ i ] > 9) k:=k * A[ i ];
writeln(k);
readln;
end.