дан массив из 20 чисел заданных произвольным образом. Вычислите сумму тех элементов которые кратны 3

var ar:array[1..20] of integer;i,k:integer;begin;randomize;writeln('Array:');for i:=1 to 20 dobegin;ar[i]:=random(100);writeln(ar[i]);if ar[i] mod 3=0 then k:=k+ar[i];end;writeln('Result:',k);end.