Дан массив натуральных чисел. Найти сумму элементов, кратных данному 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.