Question

дано целое число n(n>10).Составить программу,которая вычисляет произведение произведение чисел от 10 до n

Answer 1

var i,n,x:integer;
begin
x:=1;
readln(n);
for i:=10 to n do x:=x*i;
writeln(x);
end.