program CalculateProduct;
vai, product: integer;
begiproduct := 1;
for i := 1 to 9 dbegiproduct := product * iend;
writeln('Произведение чисел от 1 до 9: ', product);
end.
program CalculateProduct;
va
i, product: integer;
begi
product := 1;
for i := 1 to 9 d
begi
product := product * i
end;
writeln('Произведение чисел от 1 до 9: ', product);
end.