Найти произведение натуральных чисел от f до 11 (f< 11) составить программу. язык pascal

Var f,i,x: Integer;
begin
writeln('введите F:');
readln(f);
x:=1;
for i:=f to 10 do x:=i*x;
writeln('Вывод: ',x);
end.