Циклические алгоритмы 1.найти произведение семи целых чисел, вводимых с клавиатуры. 2. найти сумму чисел от 30 до 20.

За вот решение 2-ой задачи

program n2;
var
i, sum: integer;
begin
sum:=0;
for i := 20 to 30 do begin
sum:=sum+i;
end;
writeln('Сумма чисел от 20 до 30 = ', sum);
end.