Дан m(30). найти сумму элементов, больше 75. Все элементы введены с клавиатуры. (На Паскале)

Предыдущий
вопрос Следующий
вопрос

program SumElementsAbove75;
var
m: array[1..30] of Integer;
i, sum: Integer;
begin
sum := 0;

// Ввод элементов массива
for i := 1 to 30 do
begin
write('Введите элемент m[', i, ']: ');
readln(m[i]);
end;

// Подсчет суммы элементов больше 75
for i := 1 to 30 do
begin
if m[i] > 75 then
sum := sum + m[i];
end;

writeln('Сумма элементов, больше 75: ', sum);
end.