Можно ли блоксхему, а то что то запутался с началом.var    n, s, i: integer;    x: array[1..100]of integer;begin    writeln('ВВедите кол-во купюр, их значения и необходимую сумму');    readln(n);    for i := 1 to n do        read(x[i]);    readln(s);        for i := n downto 1 do     begin        if s div x[i] > 0 then            write(s div x[i], '*', x[i], ' ');        s := s mod x[i];    end;        if s <> 0 then         writeln('NO')end.