вычислить произведение чисел, кратных 13, из 100 придуманных компьютером случайных чисел в диапазоне 0-100

var  i, k: integer;  pr: int64;begin  randomize;  pr := 1;  for i := 1 to 100 do   begin    k := random(101);     write(k, ' ');    if (k mod 13 = 0) and (k <> 0) then         pr := pr * k;  end;  writeln;  write(pr);end.