Рассчитать и вывести произведение чисел от 1 до 30

Program oneTO30
var
h:integer;
BEGIN
for int i:=2 to 30 do
h:=h*i;
writeln(h);  \\или readln ... забыл
END.

var    i: integer;  begin  for i:= 1 to 30 do  writeln(i);end.

Вот код вывода чисел от 1 до 30, либо я не понял вопроса, либо вам дорога не в программирование