Решение во вложении. все забито через формулы, поэтому если поменять количество почты или вес почты, то результаты автоматически поменяются.
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Первое число в паре -- 9-литровый сосуд
Второе число в паре -- 5-литровый сосуд
0 0 -> 0 5 -> 5 0 -> 5 5 -> 9 1 -> 0 1 -> 1 0 -> 1 5 -> 6 0
А учебник какой? Скажи тогда решу