Составьте блок-схему алгоритма и программу вычисления произведения целых чисел из промежутка - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста 1. Составьте блок-схему алгоритма и программу вычисления произведения целых чисел из промежутка [-8; 4). 2. Составьте таблицу значений функции у = 4х2 + 5х - 10 на отрезке [-9; 9] с шагом b=3. 3. Составьте программу вычисления суммы 180 первых членов арифметической прогрессии, если a1 = -100; d = 0,4.

Решение задачи: «Составьте блок-схему алгоритма и программу вычисления произведения целых чисел из промежутка»

Листинг программы

const a1=-100; d=0.4;  n = 180;
var s:real;
begin
     s:=((a1+(a1+d*(n-1)))*n)/2;
     writeln('S = ',s);
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

a1 - целочисленная переменная, значение которой равно -100.
d - вещественная переменная, значение которой равно 0.4.
n - целочисленная переменная, значение которой равно 180.
s - вещественная переменная, в которую будет сохранено результат вычисления. Алгоритм вычисления произведения целых чисел из промежутка задан в виде выражения: s := ((a1 + (a1 + d (n - 1))) n) / 2 В данном выражении:
a1 умножается на (n - 1), где n - это количество чисел, которые нужно перемножить.
Затем полученное произведение суммируется с a1.
Далее к полученной сумме применяется оператор умножения на d, который умножает произведение на разность между n и 1.
И наконец, результат умножения делится на 2. Результат вычисления сохраняется в переменную s. Программа завершается выводом значения переменной s на экран.