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

beginwrite(vvedi chislo: ); // число 10 ))
readln(n);
n:=fact(n);
writeln(otvet:, n);
read;
end.