Найти произведение натуральных чисел от F до 11 (F

Question

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

Answer 1

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