найти произведение чисел от 1 до 10

program one;uses crt;vara,b: integer;beginwriteln('введите число');read(b);for a:=1 to 10 dowriteln('произведение =',a*b);end.