найти произвдение чисел от 1 до N, N-вводится с клавиатуры. Использовать цикл с параметром

var  i,n,u,c:integer;begin  c:=1; u:=1;  writeln('Введите n:');  readln(n);  for i:=1 to n do begin    c:=c*u;    inc(u);  end;  writeln('Произведение: ',c:10);  readln;end.Так?)