Сколько получится пакетов по 3кг и по 5кг, если масса тех и других оказалась одинаковой.

var x,y:integer;
begin
for x:=1 to 24 do
if 3*x=5*(24-x) then writeln('по 3=',x,' по 5=',24-x);
end.

var t:integer;
    v1,v2:real;
begin
writeln(' ');
for t:=1 to 40 do
 begin
  v1:=pi*sqr(40-t);
  v2:=pi*1600-pi*sqr(40-t);
  if v1<=v2 then
   begin
    writeln('Толщина корки=',t,'  объем мякоти=',v1:0:2,'  объем корки=',v2:0:2);
    break;
   end;
 end;
end.

function v(x: real): real;
begin
  v :=(4*3.1415926535 * (sqr(x) * x))/3;
end;
 
var
  t: real;
  v1, v2: real;
 
begin
  t := 1;
  while v1 <= v2  do
  begin;
    t := t + 0.01;
    v1 := v(t);
    v2 := v(40) - v1;
  end;
  writeln('Толщина корки=', (40-t):0:2, '  объем мякоти=', v1:0:2, '  объем корки=', v2:0:2);
end.

function v(x: real): real;
begin
  v := (4 * 3.1415926535 * (sqr(x) * x)) / 3;
end;
 
var
  t: integer;
  v1, v2: real;
 
begin
  for t := 1 to 40 do
  begin;
    v1 := v(t);
    v2 := v(40) - v1;
    if v2 <= v1 then
    begin
      writeln('Толщина корки=', (40-t), '  объем мякоти=', v1:0:2, '  объем корки=', v2:0:2);
      break;
    end;
  end;
end.