var

m,n,i,j,p,t,r,yu,w,q:longint；

a,b,c:array[0..1000]of integer；

s:array[0..100,0..100]of longint；

begin

read(n,m)；

read(p)；

for i:= 1to p do

begin

read(a[i],b[i],c[i])；

end；

for i:= 0to n do

for j:= 0to m do

begin

s[i,j]:=100000；

end；

s[0,0]:=0；

for i:= 1to p do

for t:=n downto 1 do

for r:=m downto 1 do

begin

if t>a[i] then

w:=t-a[i]

else

w:=0；

if r>b[i] then

q:=r-b[i]

else

q:=0；

yu:=s[w,q]+c[i]；

if yu<s[t,r] then

begin

s[t,r]:=yu；

end；

end；

write(s[n,m])；

end.