Написать программу, которая подсчитывает количество элементов и их сумму, которые кратны K, но не кратны M. (Язык программирования - паскаль)

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

program CountElements;
const
N = 10; // количество элементов в массиве
K = 3; // число, кратное которому должен быть элемент
M = 5; // число, не кратное которому должен быть элемент
var
arr: array[1..N] of integer;
i, count, sum: integer;
begin
count := 0;
sum := 0;
// Заполнение массива случайными числами
randomize;
for i := 1 to N do
begin
arr[i] := random(10); // случайное число от 0 до 9
writeln('arr[', i, '] = ', arr[i]);
end;
// Подсчет количества элементов и их суммы
for i := 1 to N do
begin
if (arr[i] mod K = 0) and (arr[i] mod M <> 0) then
begin
count := count + 1;
sum := sum + arr[i];
end;
end;
writeln('Количество элементов, кратных ', K, ', но не кратных ', M, ': ', count);
writeln('Сумма таких элементов: ', sum);
end.