Паскаль розробіть програму, яка визначатиме добуток чисел від 1 до 30

Program al;
var p,i:integer;
   begin 
   p:=1;
   for i:= 1 to 30 do 
 p:=p*i;   
writeln('p=',p); 
  readln; 
  end.