составте программу вычисления произведения чисел в диапозоне от 1до 10 1*2*3*4*....*10

program fac;    var n:integer; function fact(n:integer):integer; begin if n=1 then fact:=1             else fact:=fact(n-1)*n; end; begin write('vvedi chislo: '); // число 10 ))readln(n); n:=fact(n); writeln('otvet:', n); read; end.