WITH t AS(
  SELECT 521.374   FROM DUAL UNION ALL
  SELECT 304.63    FROM DUAL UNION ALL
  SELECT 1240.2123 FROM DUAL UNION ALL
  SELECT 707.11    FROM DUAL UNION ALL
  SELECT 802.5     FROM DUAL 
)
SELECT * FROM t

DECLARE
  R  NUMBER;
  Ri NUMBER;
  T  NUMBER;
BEGIN  
  
  R := 2000;      -- Число, которое надо распределить
  T := 3575.8263; -- Просто общая сумма набора чисел из селекта

  FOR i IN(
    WITH t(amount) AS(
      SELECT 521.374   FROM DUAL UNION ALL
      SELECT 304.63    FROM DUAL UNION ALL
      SELECT 1240.2123 FROM DUAL UNION ALL
      SELECT 707.11    FROM DUAL UNION ALL
      SELECT 802.5     FROM DUAL 
    )
    SELECT t.amount FROM t
  ) LOOP

    Ri :=  ROUND( R * i.amount / T );
    
    R := R - Ri;
    T := T - i.amount;    
    
    dbms_output.put_line('Для числа '||i.amount||' отщепили '||Ri);
  END LOOP;  
END;

Для числа 521.374   отщепили 292
Для числа 304.63    отщепили 170
Для числа 1240.2123 отщепили 694
Для числа 707.11    отщепили 395
Для числа 802.5     отщепили 449