Можно ли блоксхему, а то что то запутался с началом. 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.