составте программу вычисления произведения чисел в диапозоне от 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.