Question

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

Answer 1

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

Answer 2

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

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

Answer 3

var
i: integer;

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