1. Составьте программу для нахождения произведения всех натуральных чисел на отрезке [3; 9].
ПОМОГИТЕ ПОЖАЛУЙСТА

var i,p: integer;

begin

p:=1;

for i:=3 to 9 do p:=p*i;

writeln ('Произведение всех натуральных чисел на отрезке [3;9] равно ',p)

end.