procedure AverageOutput(Arr: TArr; n: integer);
var
    i: integer;
begin
   for i := 0 to n do
   begin
      write(Arr[i], ' ');
   end;
    writeln;
end;

procedure WriteToFile(const Arr: TArr ; FName : string; n: integer);
var
    NewFile: TextFile;
    i: integer;
begin
    AssignFile(NewFile, FName);
    rewrite(NewFile);
    for i := 0 to n do
    begin
       write(NewFile, Arr[i] );
       writeln(NewFile, ' ');
    end;
    CloseFile(NewFile);
    writeln('Saved to file: ', NewFile);
end;