Как разлить 8 литров подсолнечного масла на 2 равные части по 4 литра, если кроме 8-литрового бидона есть два пустых бидона на 5 литров и 3 литра?

Из 8л переживаешь в 5л из 5л в 3л. в 5л осталось 2л переливаешь их в пустую 5л. из 3л 3л переливаешь в 5л. доливаешь в 5л 2л. переливаешь в 3л. в 5 л осталось 2л. снова переливаешь в наполненный на 2л 5л бидон. в нем стало 4 л. из 3л переливаешь в 8л

Var a,b,c: real; begin write('введите 3 числа: '); readln (a,b,c); if c = sqrt(a*a + b*b) then writeln('число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c) else if a = sqrt(c*c + b*b) then writeln('число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c) else if b = sqrt(a*a + c*c) then writeln('число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c) else writeln('эти числа не являются сторонами прямоугольного треугольника') end.

Var     s: integer;     i: integer; begin s: =0; for i: = 30 to 80 do       if i mod 10 = 4 then s: =s+i; writeln('s = ',s); end. var     s,n,i: integer; begin s: =0; n: =0; for i: = 10 to 70 do       if i mod 10 = 5 then             begin             s: =s+i;             n: =n+1;             end; writeln('sr = ',s/n); end.