RUTTIEN1 PASCAL

var m,a,b,c,d,x1,x2,x3,x4,dem:longint;

procedure solve;
begin
    for x1:=0 to m div a do
        for x2:=0 to (m - x1*a) div b do
            for x3:=0 to (m - x1*a - x2*b) div c do
                if (m - x1*a - x2*b - x3*c) mod d = 0 then
                begin
                    x4:=(m - x1*a - x2*b - x3*c) div d;
                    //writeln(x1,' ',x2,' ',x3,' ',x4);
                    inc(dem);
                end;
    write(dem);
end;

begin
    assign(input,'ruttien1.inp');reset(input);
    assign(output,'ruttien1.out');rewrite(output);
    readln(m,a,b,c,d);
    solve;
    close(input);close(output);
end.