Дан массив натуральных чисел. Найти сумму элементов, кратных данному K.

program bb;

uses crt;

const n=30;

var

m:array[1 ... n]of integer;

i, k, s:integer;

begin

clrscr;

randomize;

for i:=1 to n do begin

m[i]:=i; write (m[i],' ');

end;

writeln;

write ('K = ');

read (k);

writeln;

s:=0;

for i:=1 to n do

if m[i] mod k = 0 then

begin

s:=s+m[i]; write (m[i],' ');

end;

writeln;

writeln;

writeln ('Сумма элементов кратных данному К = ', s);

end.