Изменения

== Прога для общего случая ==

<poem>

var N, i, k, l, ww, diff, fs, first, h, S, ii, c: integer;

W: array[1..i] of integer;