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

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

program oneTO30varh:integer;BEGINfor int i:=2 to 30 doh:=h*i;writeln(h);  \\или readln ... забылEND.

var    i: integer;  begin  for i:= 1 to 30 do  writeln(i);end.Вот код вывода чисел от 1 до 30, либо я не понял вопроса, либо вам дорога не в программирование