Вдвумерном массиве а(4,4)определить сумму элементов меньших 7

Const     n = 4;     c = 7; var     a: array[1..n,1..n] of integer;     i,j: integer;     s: real; begin randomize; writeln('исходный массив: '); s: =0; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ');               if a[i,j] < c then s: =s+a[i,j];               end;       writeln       end; writeln('s = ',s); end.

Наливаешь в 3-х литровую, переливаешь в 5, опять в 3-литровую, и опять в 5-ти, в трех литровой остается 1 литр. из пятилитровой выливаешь в 8-литровую назад, из 3- литровой переливаешь оставшийся литр в 5-литровую и еще раз полную трех литровую, у тебя в 8-литровой останется 4 литра и в 5-литровой тоже