Составить программку, которая подсчитывает сумму частей массива, великих 50 и наименьших

var

 A: array [1..10] of Integer;

 i, s: Integer;

begin

 Randomize;

 WriteLn ('Массив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (100);

   Write (A [i], ' ');

 end;

 for i := Low (A) to High (A) do begin

   if (A [i] gt; 50) and (A [i] lt;= 80) then

     s := s + A [i];

 end;

 WriteLn;

 WriteLn ('Сумма элементов массива = ', s);

end.