Дан некоторый числовой массив. Надо найти сумму положительных элементов этого числового массива. На Pascal ABC.

program sum_positive; var arr: array [1..7] of integer = (1, 7, -5, 3, -10, 8, -100); i, sum: integer; begin sum := 0; for i := 1 to 7 do begin if arr[i] > 0 then sum := sum + arr[i]; end; writeln('Сумма положительных элементов массива: ', sum); readln; end.