var
i, j, k, bak, s, z: integer;
sum, col, rast: double;
begin
  s := 1300; //X
  bak := 450; //Y
  z := 200; //Z

  sum := 0;
  i := 1;
  writeln('task1-2:');
  while sum < s do
  begin
    rast := sum;
    sum := sum + bak / abs(2*i - 1);
    i := i + 1;
    writeln(rast);
  end;
  i := i - 2;
  write('col baz: ');
  writeln(i);

  if (sum = s) then
    col := bak*(i + 1)
  else
  begin
    k := 2*i + 1;
    col := bak*(i) + (s - rast)*k
  end;
  write('col topliva: ');
  writeln(col);
  writeln;

  writeln('task3:');
  col := 0;
  sum := 0;
  i := 1;
  while (sum < s - z) do
  begin
    rast := sum;
    sum := sum + bak / abs(2 * i - 1);
    i := i + 1;
    writeln(rast);
  end;
  i := i - 2;
  write('col baz: ');
  writeln(i);

  sum := 0;
  col := 0;
  while (sum < (2*i - 1)*(s - rast)) do
  begin
    col := col + bak;
    sum := sum+(bak - 2*(s - rast));
  end;
  if (sum = (2*i - 1)*(s - rast)) then
    col := col + (2*i - 1)*bak - bak
  else
    col := col - (sum-(2*i - 1)*(s - rast)) + (2*i - 1)*bak - bak;
  write('col topliva: ');
  writeln(col);
end.