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

// Перед вами - WEB-среда разработки PascalABC.NET. 
// Она основана на современном языке PascalABC.NET, совместимом с Delphi Object Pascal.  
// Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// [url]http://pascalabc.net/WDE/?file=имя_опубликованного_файла.pas[/url]
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
 
const A_SIZE = 10;
var A: array[1..A_SIZE] of Double = (
  1,2,3,34,532,
  13,642,345,523,52
);
 
var mulM50: double = 1;
var mulP100: double = 1;
var res: double;
var i: integer;
begin
for i:=1 to A_SIZE do begin
  if ( A[i] < 50  ) then mulM50  := mulM50  * A[i];
  if ( A[i] > 100 ) then mulP100 := mulP100 * A[i];
end;
 
res := mulP100+mulP100;
writeln( res );
 
end.

{$N+}
const A_SIZE = 10;
  A:array[1..A_SIZE] of integer= (
  1,2,3,34,532,
  13,642,345,523,52
);
 mulM50: double=1.0;
 mulP100: double=1.0;
 
var 
 res: double;
 i: integer;
begin
for i:=1 to A_SIZE do begin
  if ( A[i] < 50  ) then mulM50  := mulM50  * A[i];
  if ( A[i] > 100 ) then mulP100 := mulP100 * A[i];
end;
 
res := mulP100+mulP100;
writeln(res:0:2);
 
end.

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

A[i]:=RAndom(1000);

read(A[i]);

write(A[i]:6);if i mod 10=0 then writeln;

{$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.