3. У списку імен учнів групи знайти ім'я Дмитро і порахувати скільки разів воно зустрічається у списку Phyton Phyton

набрать полное 9-л. ведро.перелить с него воду в 5-л. ведро.(в 9-л. ведре должно остаться 4 л) Вылить из 5-л. ведра его содержимое иналить туда всю воду из 9-л. ведра.набрать полное 9-л. ведро. перелить из него воды так, чтобы 5-л. ведро стало полным. (в 9-л. ведре должно остаться 8 л)вылить содержимое 5-л. ведра и наполнить его доверху содержимым 9-л. ,в котором после завершения операции одлжно остаться 3 л. А воду из 5-л. ведра можно вылить. 

var

  a: array [1..20] of integer;

  i, min, s: integer;

begin

  min:= 20;

  s:= 0;

  for i:= 1 to 20 do 

  begin

    randomize;

    a[i]:= random(30) - 10;

    if a[i] < min then min:= a[i];

    if a[i] > 0 then s:= s + a[i];

  end;

  writeln('Минимальный элемент: ', min);

  writeln('Сумма положительных чисел: ', s);

end.