Question

Составить программу вычисления произведения чисел от 10 до 15.

Answer 1

var p, i: integer;
 begin
  p := 1;
  for i := 10 to 15 do
   p := p * i;
  write(p);
end.