program SumOfMultiplesOfK;

const
n = 5; // количество элементов в массиве
K = 3; // данное число, кратные которому нужно найти

var
arr: array [1..n] of Integer;
i, sum: Integer;

begin
sum := 0;

// заполнение массива натуральными числами
arr[1] := 4;
arr[2] := 7;
arr[3] := 9;
arr[4] := 12;
arr[5] := 15;

// находим сумму элементов массива, кратных K
for i := 1 to n do
begin
if (arr[i] mod K = 0) then
sum := sum + arr[i];
end;

writeln('Сумма элементов массива, кратных ', K, ': ', sum);
readln;
end.