Написать блок схему и программу в паскаль для задачи:найти сумму жителей, проживающих в 10 домах, причем количество жителей этих домов является случайной от 100 до 300 человек

"жадный" алгоритм // pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin   var k: =arr(1,2,5,10); // номиналы монет   var m: =readarrinteger('кол-во монет по '+k.joinintostring+' руб: ',4);   var n: =readinteger('сумма в купюрах, руб: ');   if m.zip(k,(p,q)-> p*q).sum< n then begin // нехватка монет       writeln('размен невозможен'); exit       end;   var s: =''; // для результатов   for var i: =k.length-1 downto 0 do       if (n> =k[i]) and (m[i]> 0) then begin // номинал участвует           var t: =min(n div k[i],m[i]); // кол-во монет           n: =n-k[i]*t; // остаток           if s.length> 0 then s+=', ';           s+=t+' по '+k[i]+' руб.';           end;   if n< > 0 then writeln('размен невозможен')   else writeln(s) end. примеры кол-во монет по 1 2 5 10 руб: 350 215 86 130 сумма в купюрах, руб: 1526 130 по 10 руб., 45 по 5 руб., 1 по 1 руб. кол-во монет по 1 2 5 10 руб: 500 146 0 38 сумма в купюрах, руб: 432 38 по 10 руб., 26 по 2 руб. кол-во монет по 1 2 5 10 руб: 10 20 30 40 сумма в купюрах, руб: 25000 размен невозможен