Дан одномерный массив, состоящий из вещественных элементов. Найти сумму элементов массива, расположенных до последнего положительного элемента.

var   a : array [1..100] of real;   n, i : integer;   flag : boolean;   sum : real; begin   read (n);   for i := 1 to n do read (a[i]);   flag := false; sum := 0;   for i := n downto 1 do     if flag then sum := sum + a[i]     else if a[i] > 0 then flag := true;   writeln (sum); end.