Хелп, осталось мало времени. Решаем в Pascal abc. Прикрепил скрин.

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

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

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

var x1,x2,x3,x4,x5: integer;

s: real;

begin

  read(x1,x2,x3,x4,x5);

  s: = (x1+x2+x3)/(x4+x5);

  if round(s)=s then writeln("celoe - "s);

end.

страус! он бегает со скоростью 80 км/ч

var a,b,c: integer;

begin

  read(a,b,c);

  if a> =0 then writeln(a);

  if b> =0 then writeln(b);

  if c> =0 then writeln(c);

end.