Массив: Найти произведение элементов меньше 50 и сложить с произведением элементов больше 100 - Turbo Pascal

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

дан массив A(а1,a2,...a50) Найти произведение всех элементов, значения которых меньше 50, и сложить с произведением элементов больших 100.

Решение задачи: «Массив: Найти произведение элементов меньше 50 и сложить с произведением элементов больше 100»

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

{$N+}
const A_SIZE = 50;
var
 a:array[1..A_SIZE] of integer;
 i,b1,b2: integer;
 mult50,mult100:double;
begin
  randomize;
  mult50:=1.0;  b1:=0;
  mult100:=1.0; b2:=0;
  writeln('A:');
  for i:=1 to A_SIZE do begin
   read(A[i]);
   if A[i]<50 then begin mult50:=mult50*A[i];b1:=1;end;
   if A[i]>100 then begin mult100:=mult100*A[i];b2:=1;end;
  end;
  writeln;
 writeln(b1*mult50+mult100*b2);
end.

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

В начале кода объявляются все необходимые переменные: массив a, две переменные i, b1 и b2 для хранения произведений, а также две переменные mult50 и mult100 для хранения произведений элементов массива, которые меньше 50 и больше 100 соответственно.
Строка $N+ говорит компилятору, что следующий код написан на Turbo Pascal.
В строке const A_SIZE = 50; задается константа A_SIZE, которая равна 50.
В строке var объявляются все переменные, включая те, которые были объявлены в предыдущей строке.
Строка a:array[1..A_SIZE] of integer; объявляет массив a с 50 элементами, каждый из которых является целым числом.
Строка randomize; используется для инициализации генератора случайных чисел.
В строках mult50:=1.0; и mult100:=1.0; задаются начальные значения для переменных mult50 и mult100 соответственно.
Строка writeln('A:'); выводит на экран заголовок A:.
В цикле for считываются элементы массива A[i] и проверяется условие A[i]<50. Если это условие истинно, то переменной mult50 присваивается произведение A[i] и текущего значения переменной b1, а переменной b1 присваивается значение 1. Если условие A[i]>100 истинно, то переменной mult100 присваивается произведение A[i] и текущего значения переменной b2, а переменной b2 присваивается значение 1.
После завершения цикла for выводится на экран результат, который получается путем умножения произведения элементов меньше 50 (mult50) на произведение элементов больше 100 (mult100), а затем сложения этих произведений.
Код завершается строкой end..