В ПАСКАЛЕ!!!!!!!!!!!!!
В массив A[n] занесены натуральные числа. Найти сумму тех элементов, которые кратны данному K (A[i] mod k ) = 0

спасибо

ConstN = 33;VarA:array[1..N] of integer;i,K:integer;S:real;BeginWrite('K = ');ReadLn(K);S:=0;For i:= 1 to N do    Begin    A[i]:=random(100)+1;    Write(A[i],' ');    if A[i] mod K = 0 then S:=S+A[i];    End;WriteLn;Write('S = ',S);End.