uses crt;
type
        mang=array[0..10000,0..10000] of longint;
        mang2=array[0..10000] of longint;
var
        a:mang;
        w,v:mang2;
        n,m:longint;
procedure nhap_mang({var w:mang2;}n:longint);
        var
                i:longint;
        begin
                for i:=1 to n do
                        begin
                                write('w[',i,']=');
                                readln(w[i]);
                        end;
        end;
procedure nhap_mang1({var v:mang2;}n:longint);
        var
                i:longint;
        begin
                for i:=1 to n do
                        begin
                                write('v[',i,']=');
                                readln(v[i]);
                        end;
        end;
procedure truy_tim({var a:mang;}w,v:mang2;n,m:longint);
        var
                i,j,max:longint;
        begin
                max:=0;
                a[1,1]:=0;
                for i:=1 to n do
                        for j:=1 to m do
                                if w[i]>j then
                                        a[i,j]:=a[i-1,j]
                                else if (w[i]<j) and (max<=v[i]) then
                                        a[i,j]:=v[i]+a[i-1,j-w[i]]
                                else if v[i]> max then
                                        a[i,j]:=a[i-1,j];
        end;
procedure in_mang(a:mang2;n:longint);
        var
                i:integer;
        begin
                for i:=1 to n do
                        write(a[i]:4);
        end;
procedure in_mang2({a:mang;}n,m:longint);
        var
                i,j:longint;
        begin
                for i:=1 to n do
                        begin
                                for j:=1 to m do
                                        write(a[i,j]:4);
                                writeln;
                        end;
        end;
BEGIN
        clrscr;
        write('Nhap so goi hang : ');readln(n);
        write('Nhap trong luong toi da cua tui');readln(m);
        nhap_mang({w,}n);
        nhap_mang1({v,}n);
        truy_tim({a,}w,v,n,m);
        in_mang2({a,}n,m);
        readln;
END.