Написать программу вычисления произведения n вводимых с клавиатуры чисел

Question

Написать программу вычисления произведения n вводимых с клавиатуры чисел

Comments

А сколько чисел быть должно?

Answer 1

Program qq;
var n,i:byte;
     s:integer;
begin
 readln (n);
 for i:= 2 to n do
  s:=s*i;
 write (s);
end.