А то я не разбираюсь!

1 ряд: 101010, 52, 42, 2А

2 ряд: 1010111, 127, 87, 57

3 ряд: 101000001, 501, 321, 141

4 ряд: 101010, 52, 42 ,2A

налить в 9-литровое 9 литров

отлить 2 раза по 4 л. останется 1 л его вылить в 4х литровое

налить полное 9-литровое ведро и отлить из него в 4х литровое в котором уже есть 1 литр туда войдет 3 литра в 9-литровом останется 6 литров

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.