Где можно найти информацию о битве под москвой в великую отечественную войну , интернет книги и ещё гдё?

Апросто в интернете нету?

Var   f1, f2 : array [1..10] of integer;   i : integer;   input, output : text;   begin   assign(input,'input1.txt');   reset(input);   for i: = 1 to 10 do        read(input,f1[i]);   close(input);     assign(input,'input2.txt');   reset(input);   for i: = 1 to 10 do        read(input,f2[i]);   close(input);     assign(output,'output.txt');   rewrite(output);   for i: = 1 to 10 do   begin       writeln(output,f1[i]);       writeln(output,f2[i]);   end;   close(output); end.

Var   input1, input2, output : text;   i, number : integer; begin   assignfile(input1, 'input1.txt');   assignfile(input2, 'input2.txt');   assignfile(output, 'output.txt');   reset(input1);   reset(input2);   rewrite(output);   for i : = 1 to 10 do   begin     read(input1, number);     write(output, number, ' ');     read(input2, number);     write(output, number, ' ');   end;   closefile(input1);   closefile(input2);   closefile(output);   writeln('готово'); end.