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

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