program MultiplyNumbers;
var
i, num, product: integer;
begin
product := 1;
for i := 1 to 20 do
begin
write('Enter number ', i, ': ');
readln(num);
if abs(num) < 10 then
product := product * num;
end;
writeln('The product of numbers with absolute value less than 10 is: ', product);
end.