Параметри (властивості) об'єкта поділяють на:

Uses crt;
Var
       mas:array[1..10, 1..10] of integer;
       i,k,minln,pr:integer;
Begin
minln:=0;
for i:=1 to 10 do
   for k:=1 to 10 do
 mas[i,k]:=random(10)+1;
     for i:=1 to 10 do begin if minln>0 then break; pr:=0;
   for k:=1 to 10 do begin if (mas[i,k] mod 2 = 0) then pr:=pr+1;
                               if (pr = 10) then minln:=i;
                               end; end;
   Writeln('Минимальный номер строки с чётными числами - ',minln);
   Writeln('Вот она');
   for k:=1 to 10 do write (mas[minln,k],' ');

End.

9 литровая бочка - 1 бочка
5 литровая бочка - 2 бочка
сначала наливаем из 1 бочки во 2 бочку. в 1 бочке остаётся 4 литра. выливаем воду из 2 бочки. наливаем оставшиеся 4 литра из 1 бочки во 2 бочку. заново наливаем в 1 бочку 9 литров. доливаем 1 литр во 2 бочку и выливаем. в 1 бочке остаётся 8 литров. наливаем во 2 бочку 5 литров и выливаем. в 1 бочке остаётся 3 литра. наливаем 3 литра во 2 бочку, а в 1 бочку наливаем 9 литров. доливаем во 2 бочку 2 литра и выливаем. в 1 бочке остаётся 7 литров воды. наливаем из 1 бочки 5 литров во 2 бочку и выливаем воду из 2 бочки. в 1 бочке остаётся 2 литра, и наливаем эти 2 литра во 2 бочку. наливаем в 1 бочку 9 литров воды и доливаем во 2 бочку 3 литра. в 1 бочке остаётся 6 литров. готово