Поманите Задача по информатике
Сделать в питоне
Информатикс Кириенко 14 раздел задача X
кто сможет сделать эту дам ещё 100

Var
  f: string := 'output1.txt';
  fo: array of string := ('out1.txt', 'out2.txt', 'out3.txt');
  bools: array [0..2] of boolean;
  a, b: integer;

begin
  System.IO.File.WriteAllText(f, '');
  foreach str: string in fo do
    System.IO.File.WriteAllText(str, '');
  
  readln(a, b);
  for i: integer := a to b do
    System.IO.File.AppendAllText(f, i.toString() + System.Environment.NewLine);
  
  foreach str: string in System.IO.File.ReadAllLines(f) do
  begin
    b := StrToInt(str);
    bools[System.Math.Sign(b) + 1] := true;
    System.IO.File.AppendAllText(fo[System.Math.Sign(b) + 1], b.ToString() + System.Environment.NewLine);
  end;
  
  for i: integer := 0 to 2 do
    if not (bools[i]) then
    begin
      write('В файле с ');
      case i of
        2: write('положительными');
        1: write('нулевыми');
        0: write('отрицательными');
      end;
      writeln(' значениями нет записей');
    end;
end.

Оглавле́ние — указатель заголовков издания, отражающий рубрикацию произведения и ускоряющий поиск частей издания.

В оглавлении произведения, разбитого на части, разделы, подразделы, главы, подглавы, параграфы, подпараграфы, примечания и т. п., устанавливающие соподчиненность отдельных частей произведения, последовательно приводятся наименования частей, разделов, глав, параграфов в полном объёме, так, как они даны в тексте, и указываются страницы, на которых начинается рубрика. Рубрики последней ступени — подзаголовки, взятые в тексте рукописи в подбор, — в оглавлении могут не приводиться. Взаимоподчиненность частей произведения в оглавлении передают средствами полиграфического оформления: выделением в красную строку, шрифтами и набором рубрик с отступом от левого края полосы

Объяснение: