Найти произведение первых n натуральных чисел — Pascal(Паскаль)

var
i,pr,n:integer;
begin
writeln('Vvedite chislo');
readln(n);
pr:=1;
for i:=2 to n do
pr:=pr*i;
writeln(pr);
end.