Допоможіть розв"язати задачу з програмування:
Знайти добуток чисел кратних 5 від 1 до 500.

program ex;var k,h,m: longint;begin  m:=1;  for k:=1 to 500 do begin    if k mod 5 = 0 then m:=m*k;  end;  write(m);end.