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

program zz1;

const n = 30;  // задаем количество элементов в массиве

var  i, k:integer; // задаем переменные целого типа

m:array [1..n] of integer; // заводим одномерный массив целого типа на n элементов

begin

for i:=1 to n do  // получаем n чисел с клавиатуры и записываем их в массив

read(m[i]);

for i:=1 to n do  // организуем цикл на n повторений

if m[i] > 75 // проверяем, если очередной элемент массива больше семидесяти пяти, то добавляем его к сумме

then k:=k + m[i];

write(\' сумма таких членов = \', k); //выводим ответ

end.