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

За 5 баллов... вот решение 2-ой задачиprogram n2;vari, sum: integer;beginsum:=0;for i := 20 to 30 do beginsum:=sum+i;end;writeln('Сумма чисел от 20 до 30 = ', sum);end.